$ perl -pi -e'tr/\015//d' *.{pl,pm,pod,txt}


##</code><code>##

#!/usr/bin/perl
for (@ARGV) {
    open my $fh, '+>>', $_ or warn $! and next;
    seek $fh, 2, -1;
    if (<$fh> ne "\n") {
        seek $fh, 2, 0  # seek unneeded on many platforms
            and print $fh "\n";
        print $_, $/;
    }
}