chdir( $wetrasnfer) or mail ($to = $internaldl, $from = $internaldl, $subject= "wetransfer $! $0", $body ="ERROR $wetrasnfer $! $0" ); (@wetransfer) = glob '*.tif'; @wetrasnfer_fix = grep /([0-9])*_([0-9]*)/, @wetransfer; print join("\n", @wetrasnfer_fix), "\n";