Perl code by kinopiko - 3 lines

Link:

kinopiko - Perl, pasted on Nov 4:

1
2
3

$string='abcd94%かきくけこ';
$string =~ s/[^[:ascii:]]//g;
print "$string\n";

Output:

abcd94%