#!/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 [] 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__