my $myvariable;
my $this-variable;
$this-variable = 1 if $myvariable =~ /blah/;

##</code><code>##

print "HEY!\n" if $this-variable;
print "NO!\n" if !$this-variable;