$my_var =~ s/[^a-zA-Z0-9_@#$%]//g;
print "Bad length!" unless (length $my_var >= 8) && (length $my_var <= 12);