#!/usr/bin/perl

use strict;
use warnings;

my $a = '2323jjf  ("$("&&"&$__\\/';
my $b = $a;

$a =~ s/\W//g;
$a =~ s/_//g;

$b =~ s/\W|_//g;

print "a = $a\n";
print "b = $b\n";

__END__