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

##</code><code>##

line is *hello\n\ugoodbye*
line is *good\nevil*
line is *yes\nno*

##</code><code>##

line is *hello
goodbye*
line is *good
evil*
line is *yes
no*

##</code><code>##

*Hello
Goodbye*