#!/bin/bash

ascii() {
	coproc toascii {
		perl -e '
			use utf8;
			use Encode;
			use Text::Unidecode;
			use open qw(:std :utf8);
			$| = 1;
			while (<>) {
				print(unidecode(encode("utf-8", $_)));
			}'
	}
}