#! perl -w
$a='Di Oma ist die beejkkkkkkkkkkkkkkkkkkkkkkk oma!';


if($a=~/om/)
{print " Ausdruck gefunden(om)!\n\n" ;}
else { print "Nichts gefunden!\n\n"; }

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

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

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

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

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