Select Code to Download

#!/usr/bin/perl

...
    else { print "no\n";}
    }
}

#regex way
if ($op=~m/^(==|eq|<|>)$/) { 
...
if ($allowedops{$op}) {
...