#!/usr/bin/perl

$alpha = 'aeiou_XZY_^#@_123_BCD';

($one = $alpha) =~ s/\W//g; # _ stays
($two = $alpha) =~ s/[^[:alpha:]]//g; # _ gone

print $one, "\n";
print $two, "\n";