@email = <>; my $message = join "\n", @email; #### my $message = do { local $/; <> }; #### my $message = join '', @email;