Originariamente inviato da Mich_
Non ti serve una routine, ti basta una RE:
codice:
my $str = "RMNRTIRTU1_______________"
$str ~= s/_+//;
(spero di non aver fatto errori di sintassi: sono andato a memoria e sono un po' arrugginito)
grazie

la tua soluzione è quasi giusta; oltre ad invertire i 2 caratteri = e ~, bisogna aggiungere un underscore in più, altrimenti mi cancella anche quello in mezzo

codice:
my $str = "RMNRTIRTU1_______________"
$str =~ s/__+//;