if($a=~ /\b[\w]\b{5,8}/)