#!/usr/bin/perl
use utf8;
use Encode
qw(encode decode
);
$s = "dæmi : пример : příklad : thí dụ";
$t = decode
('ascii', encode
('ascii', $s, sub { return '' } ));
IyEvdXNyL2Jpbi9wZXJsCgp1c2UgdXRmODsKCnVzZSBFbmNvZGUgcXcoZW5jb2RlIGRlY29kZSk7CgokcyA9ICJkw6ZtaSA6INC/0YDQuNC80LXRgCA6IHDFmcOta2xhZCA6IHRow60gZOG7pSI7CgokdCA9IGRlY29kZSgnYXNjaWknLCBlbmNvZGUoJ2FzY2lpJywgJHMsIHN1YiB7IHJldHVybiAnJyB9ICkpOwoKcHJpbnQgJHQ7