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