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