#!/usr/bin/perl

 print "Zadej libovolný řetězec \n";
 $retezec = <STDIN>
 ++$neobsahuje unless ($retezec =~ /ahoj/); # proměnná 'neobsahuje' byla puvodne 0

 if ($neobsahuje) {
  print "Zadaný řetězec neobsahuje podřetězec ahoj\n";
 } 
 else {
  print "Zadaný řetězec obsahuje podřetězec ahoj\n";
 }