Help for this page
c:\@Work\Perl\monks>perl -wMstrict -le "for my $one ($1) { ... A: '333' 2 5 'xx' $1 '666' B: '333' 2 5 'xx'