Help for this page

Select Code to Download


  1. or download this
    > my $x='this is a test'
this is a test
...
> $1
> print $1
1
  2. or download this
    > 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