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