>perl -MEnglish -le"'foo' =~ /(?.*)/; print $LAST_PAREN_MATCH{n}" foo