print $& if ($filecontents =~ /blah\.boo\(\w+\(\)\)\;/);