Select Code to Download

> my $x='this is a test'
this is a test
...
> $1
> print $1
1

> my $x='This is a test for web perl parsing';
This is a test for web perl parsing
> my ($what_test) = $x =~m/for (.+)/;
1> $what_test
web perl parsing