open my $fh, '<:crlf', "test.txt"
    or die "Failed to open $!\n";
my $line;
while ($line = <$fh>) {
   chomp($line);
   print "It was $line!!!\n";
}