use strict; use warnings; my $s = ; chomp($s); print "$s\n";