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

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