my $re = qr/.+\-(.+)/;
$foo =~ s/$re/$1/;