Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $s = '1    2            2        5                4';
...
 die 'bad transformation' unless $s eq $t;
"
'1    2    0    0    2    0    5    0    0    0    4'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = '1    2            2        5                4';
...
 die 'bad transformation' unless $s eq $t;
"
'1    2    0    0    2    0    5    0    0    0    4'