# Captures all but the leading and trailing parens.
($file_name) = $string =~ /^\((.*)\)$/;