@wetransfer_fix = map { (my $t = $_) =~ s/\.tif//; $t } grep # ...as before...