na ja, hab jetzt was drumrum gebastelt so in der Art:
my $out: 0_3_1_2_4-5-6_7';

und das dann auswerten:

my $new_string = "";
for my $rr ( 0 .. length($cod_name) )
{
my $ch = substr($cod_name,$rr,1);
( $ch =~ /\d/ ) ? $new_string.=$info[$ch] : 1 ;
( $ch =~ /\D/ ) ? $new_string.=$ch : 1 ;
}

geht aber vielleicht gehts besser...