$/ = q(); while (<>) { s/\n//g; print "$_\n"; }