my $string = "aaa - bbb";
my ($part) = split /-/,$string,2;
print $part;