use strict;
use warnings;

chomp( my @strings = <> );

print "$_\n" for @strings;

##</code><code>##

use strict;
use warnings;

my @strings;

while (<>) {
	push @strings, split ' ';
}

print "$_\n" for @strings;