% perl -sle '"Hello" =~ /(\w+)/; print $1' -- -1=foo foo