Select Code to Download

 1:31 >perl -wE "my $constant = 'fred'; my $string = 'fredflintstone';
+ print qq[found $1\n] if $string =~ /^$constant/;"
Use of uninitialized value $1 in concatenation (.) or string at -e lin
+e 1.
...
found fred

 1:32 >