$user = lc"SmithB2
^";
 if 
	($user =~ "/^\D*\d\i\$/") {