Select Code to Download

print "'$_' " for unpack '(A5)5', 'abcdeabcd abc  ab   a   ';
'abcde' 'abcd' 'abc' 'ab' 'a';

my $template = 'A5' x 80;

print '"' . join( '","', unpack '(A15)86', $_ ), "\"\n";