$ perl -wE '"foo" =~ /(.)/; "bar" =~ /f(o)o/ or say $1' f