[ create a new paste ] login | about

Link: http://codepad.org/KTMvQiOz    [ raw code | output | fork ]

kinopiko - Perl, pasted on Nov 4:
1
2
3
$string='abcd94%かきくけこ';
$string =~ s/[^[:ascii:]]//g;
print "$string\n";


Output:
1
abcd94%


Create a new paste based on this one


Comments: