> 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