#!/usr/bin/perl -w
# vim: set sw=4 ts=4 cin et cink=0{,0},\:,o,O,e:
# author: Guido Socher
if (scalar(@ARGV) <= 0 || $ARGV[0] eq "-h") {
    print "\n Usage: $0 [<filename>]
This program reads stdin if no filename is given.\n";
}else{
    #what is my name?
    if ($0 =~ /unix2dos$/){
        while (<>) {
#            tr/نِüكؤضـ/\x8a\x9a\x9f\xa7\x80\x85\x86/;
            s/$/\r/;
            print;
        }
    }else{
        while (<>) {
#            tr/\x8a\x9a\x9f\xa7\x80\x85\x86/نِüكؤضـ/;
            s/\r\n/\n/;
            print;
        }
    }
}#else
__END__