#!/usr/bin/perl
 
 print "Zadej jméno \n";
 $jmeno = <STDIN>;
 
 $vetrelec = 0; # proměnná vetřelec je zatím nepravdivá
 
 unless ($jmeno =~ /Karel|Jan|Petr|Evžen|Jiří/) {
  $vetrelec = 1;
 }

 print "Dostal se sem vetřelec \n" if ($vetrelec);