gut aber kürzer wäre:

$safestring =~ s/[[:Alnum:]]/_/g;