[perl] eliminare underscore finali del valore di un parametro

[basileus]

mi servirebbe una subroutine che passatogli il parametro mi cancella gli underscore finali

es:

RMNRTIRTU1_______________ => RMNRTIRTU1

MEM_VTIRT2_______________________ => MEM_VTIRT2

naturalmente deve essere parametrico, gli underscore non sono fissi!!!


sto cercando di buttare giù qualcosa, ma per il momento non ottengo risultato!!!

ho provato così

my $var='MEMV_IRTU1________________';
$var=&eliminaUnderscore($var);
print "$var";

sub eliminaUnderscore {
my $temp= shift;
$temp=~ s/\__//g;
$temp=~ s/\_//i;
return $temp;
}

ma non va bene, perchè mi cancella il primo underscore oltre agli ultimi, lasciandone uno!!