use AmpKiller; if ("foo" =~ /bar/) { print $& }