Not all data is ascii. Your piece of code will remove all unicode characters, which may or may not be what you want.

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]