(my $newName = $grib) =~ s/:00:00//; rename $grib, $newName; (my $newName2 = $grib) =~ s/:00:00.grb//; rename $grib, $newName2;