use strict;
use warnings;
use v5.10;

my @lines = <DATA>;

for my $line ( @lines ) {
   chomp $line;
   say "\$line is *$line*";
}

__DATA__
hello\ngoodbye
good\nevil
yes\nno