>perl -wMstrict -le
"$_ = 'BLAH01-ARRRGH0GAG';
 s/-./$`$&/;
 print qq{'$_'};
"
'BLAH01BLAH01-ARRRGH0GAG'