#!/usr/bin/perl -l

use strict;
use warnings;

use Readonly;
Readonly my $VAR => 'SEARCH';

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