Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -Mwarnings -E '
my $str = q{abc} x 3;         
for ( my $idx = 0; $idx < length $str; $idx += 3 )
...
cab
cab
$

Select or download this

$ perl -Mstrict -Mwarnings -E '
my $str = q{abc} x 3;
for ( my $idx = 0; $idx < length $str; $idx += 3 )
...
abc
abc
$