my $line='0x160001a \"fubar - BlahBlahBlah - Blah Blah (1:23)\": ("Foo" "Bar")  Baz';
if ($line=~/\)/){
   $line="$`)"; 
}
if ($line=~/-\s/){
   $line=$';
}
##</code><code>##

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,$/;

##</code><code>##

use strict;
use warnings;

my $line='0x160001a \"fubar - BlahBlahBlah - Blah Blah (1:23)\": ("Foo" "Bar")  Baz';

if ( $line =~ /- ([^\)]+\))/ ) {  print $1; $line = $1;}