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