Edit file File name : filtuu Content : print "use Filter::UUdecode ;\n" ; while (<>) { print pack("u", $_) ; } Save