chomp (my @data = <DATA>);
print "$_\n" for @data;

__DATA__
one
two
three

##</code><code>##

while (<DATA>){
    chomp;
    print "$_\n";
}
__DATA__
one
two
three