use strict;
use warnings;
my ($prematch,$postmatch);
my $line='0x160001a \"fubar - BlahBlahBlah - Blah Blah (1:23)\": ("Foo" "Bar")  Baz';
if ($line=~/\)/){$line="$`)"; $prematch = $`;}
if ($line=~/-\s/){$line=$'; $postmatch = $';}

print $prematch,$/;
print $postmatch,$/;
print $line,$/;