Select Code to Download

#!/usr/bin/perl

...
}

__END__

#!/usr/bin/perl

...
}

__END__

string length=17, len=1, rep=2

...
ok 17 - ikegami len=3, rep=3
ok 18 - lodin len=3, rep=3
1..18