$ perl -wE '"foo" =~ /(.)/; "bar" =~ /f(o)o/ or say $1' f [download]
In reply to Re^3: Seeking a good punchline by JavaFan in thread Seeking a good punchline by dws