> my $x='this is a test'
this is a test
> $x=~m/(.+)a/
1
> $1
> print $1
1

##</code><code>##

> 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