Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = 'Three, Four, One, Two';
...
Use of uninitialized value $3 in concatenation (.) or string at -e lin
+e 1.
Use of uninitialized value $4 in concatenation (.) or string at -e lin
+e 1.
'Three,'  ''  ''  ''

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'foo bar baz';
...
Use of uninitialized value $2 in concatenation (.) or string at -e lin
+e 1.
Use of uninitialized value $3 in concatenation (.) or string at -e lin
+e 1.
C:  'bar'  ''  ''

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'Three, Four, One, Two, xFive9';
...
'Three' 'Four' 'One' 'Two'
(?^msx: \b (?: Four|Three|Two|One) \b )
'one, two, three, four, xFive9'