#!/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 '' } ));

print $t;