(my $newName = $grib) =~ substr($grib, -10, 6) = ""; rename $grib, $newName;