if(
 ($s =~ /\w{6,20}/)
 && ($s !~ /\_/))
{print "success!";}
else
{print "invalid string";}