in reply to Re: Displaycode suggestion
in thread Displaycode suggestion

$filename =~ s/__+/_/g;
$filename =~ y/_//s;

In Section Perl Monks Discussion