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

if($a=~ /\b\w{3}\b$/)
{
print "Wort mit 3 Buchstaben am Ende gefunden!\n\n" ;
}
else { print "Nichts gefunden!\n\n"; }