#!/usr/bin/perl while () { chomp; print "$_ and two\n"; } #### #!/usr/bin/perl while (<>) { chomp; print "$_ and two\n"; }