[perl] eliminare underscore finali del valore di un parametro

[Mich_]

Avevo il dubbio sul ~= / =~ : me lo dimentico sempre.

Non avevo capito che ce n'erano altri.
Allora e` meglio usare:

$str =~ s/_+$//;

altrimenti ti rimane un underscore se alla fine sono dispari.