Help for this page

Select Code to Download

Select or download this

my $newfile = $prefix . $suffix;
$newfile =~ s/_$//;
rename "$dir/$file", "$dir/$newfile";