use strict;

my @user = map { 'foo'.$_.'bar' } qw(! @ # $ % ^ & * ( ) _ .);

for (@user) {
   print /^[\w.]+$/ 
      ? "$_ is legal\n"
      : "$_ is illegal\n"
   ;
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)