#!/usr/bin/perl

use warnings;
use strict;

use Text::Unaccent;

my $what = shift @ARGV || '.+';

while(<>) {
	s{($what)}{unac_string('utf8',$1)}ges;
	print;
}
