for my $s ( qw( a b c ) ) { $s =~ s/$/\n/ && print $s }