Select Code to Download

use strict;
use warnings;
...
    if ($_ =~ /qu(?!it)/) { print ("found <$_>\n"); }
    else { print ("no match for <$_>\n"); }
}

use strict;
use warnings;
...
    if ($_ =~ /gu(?!gu)/) { print ("found <$_>\n"); }
    else { print ("no match for <$_>\n"); }
}

use strict;
use warnings;
...
$result = ($cnt eq 4? ">> correct result" : ">> wrong result");
print "end second loop <$cnt> is $result\n";
print ">>pgm ended\n";