Input: DEMO_.perl DEMO_.php [download]
$str =~ tr/a-zA-Z//dc [download]
Expected: DEMO.perl DEMO.php [download]
In reply to How to remove underscore before every dot using perl? by finddata