http://www14.plala.or.jp/campus-note/vine_linux/server_ssh/ssh_portforwarding.html

# ngram.pl 1 use strict; 2 use warnings; 3 use utf8; 4 binmode STDIN, ':utf8'; 5 binmode STDOUT, ':utf8'; 6 7 my @text = split(//,join('',<>) ); 8 9 my $seek = 0; 10 my $span = 2; 11 12 while(1) { 13 my @words = grep {$_} map { $text[$_] }…