use strict; use warnings; chomp( my @strings = <> ); print "$_\n" for @strings;