if($a=~ /\b[\w]\b{5,8}/)
{
print " Wort mit einer Länge von Zeichen gefunden!\n\n" ;

}
 else { print "Nichts gefunden!\n\n";}