my @pattern = ("Volume 2 SAPSWW", "VOLUME14_ADMTL04");

foreach my $pattern (@pattern) {
$pattern =~ s/\s/_/g;
$pattern =~ m/^\w+$/g;

print "Matching: $pattern\n";
}