my $file = '.'; opendir(DIR,$file); @files=readdir(DIR); close(DIR); for(@files) { if($_ =~ m{/s+}) { s/$_/_/g } } [download]
In reply to Renaming files by Anonymous Monk