if(($line =~ /^\s*\/m(\w*)/) && ($1 !~ /^e|sg/) && ($username eq 'tcf22')){ print "Don't know how to '/m$1', maybe you meant /me or /msg?\n"; }else{ &post_message; }