http://www.perlmonks.org?node_id=1184834

finddata has asked for the wisdom of the Perl Monks concerning the following question:

Input: DEMO_.perl DEMO_.php
$str =~ tr/a-zA-Z//dc
Expected: DEMO.perl DEMO.php