my $line = <SOME_FILE>;
    chomp($line);
    $line =~ s/\r$//;