Select Code to Download

#!/usr/bin/perl -w
use strict;
...
AAZZ
AA ZZ
ZA

sub is_match
{
...
AAZZ:    RESULT=NO MATCH
AA ZZ:    RESULT=NO MATCH
ZA:    RESULT=NO MATCH