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