my $string = "aaa - bbb";
my ($part) = $string =~ m/^([^-]*)/;
print $part;