# Get rid of all line endings, regardless of which flavor they are (my $line = shift) =~ s/[\r\n]//g;