[perl] eliminare underscore finali del valore di un parametro

[Mich_]

Non ti serve una routine, ti basta una RE:

my $str = "RMNRTIRTU1_______________"
$str ~= s/_+//;

(spero di non aver fatto errori di sintassi: sono andato a memoria e sono un po' arrugginito)