#!perl use strict; use warnings; while( <> ) { chomp; print; } print $/;