>perl -wMstrict -le
"use 5.010;
 ;;
 $_ = 'BLAH01-ARRRGH0GAG';
 s{ .*? - \w \K .* }''xms;
 print qq{'$_'};
"
'BLAH01-A'