$hoge =~ s/A-/TEMP/;
@hoge = split(/-/$hoge);
$hoge[0] =~ s/TEMP/A-/;

というようなことをしたいのですが、TEMPのところはどうするのが最適なんでしょうか？
$hogeの中には適当な文字列が入ってます。