note
crabbdean
You want the translation operator:
<CODE>
$a =~ tr/\W_//g;
</CODE>
or you can also use the substitution operator but specifying a choice:
<b>UPDATE to CODE:</b> (opps)
<CODE>
$a =~ s/(\W|_)//g;
</CODE>
<b>UPDATE:</b> It might also be worth your while to read the [perldoc://perlop] documentation
<div class="pmsig"><div class="pmsig-319416">
<br>
[id://319416|Dean]<br>
The Funkster of Mirth<br>
<i><small>Programming these days takes more than a lone avenger with a compiler. - sam<br>
[http://www.ietf.org/rfc/rfc1149.txt|RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers
]</i></small>
</div></div>
375220
375220