use strict; use warnings; $_ = join '',; s/\n//g; print; __DATA__ line 1 line 2 line 3