>qualcuno sa se esiste un analogo di "paste" in perl? untested: join "t", map { defined $_ ? $_ : 'EOF' } (<$fh1>, <$fh2>); Oha