unaccent-file.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Text::Unaccent;
   7
   8 my $what = shift @ARGV || '.+';
   9
  10 while(<>) {
  11         s{($what)}{unac_string('utf8',$1)}ges;
  12         print;
  13 }