Select Code to Download

#!/usr/bin/perl -l

use strict;
...
foreach my $var ($VAR) {
    print +($var eq $VAR) ? 'yes' : 'no';
}