#!/usr/bin/perl

use strict;
use warnings;

my $a='Di Oma ist die beejk kkkkkkkkkkkkkkkkkkkkkk oma!';
 
if($a=~/om/)
{ print " Ausdruck gefunden(om)!\n\n" ; }
else
{ print "Nichts gefunden!\n\n"; }
 
if($a=~/\b\w{5,8}\b/)
{ print " Wort mit Länge von 5 bis 8 Zeichen gefunden!\n\n"; }
else
{ print "Nichts gefunden!\n\n"; }