next if ($username =~ /ipw\.a^a-ma-z*/);              
##</code><code>##

next if ($username =~ /ipw\.a[a-m][a-z]*/);