use strict;
use warnings;

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

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