#! 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"; }