Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"my $s = 'xxx aBc yyy dE zzz';
...
Use of uninitialized value $1 in concatenation (.) or string at -e lin
+e 1.
$1: ''
$s: 'xxx XXX yyy XXX zzz'

c:\@Work\Perl>perl -wMstrict -le
"my $s = 'xxx aBc yyy dE zzz';
...
$s: 'xxx aBc yyy dE zzz'
$1: 'dE'
$s: 'xxx XXX yyy XXX zzz'