my $DEBUG=1;

...

my $val = get_something("vars");
warn $val if ($DEBUG && ! $val);

...

my $val2 = do_something_else($val);
warn $val2 if ($DEBUG && $val2 =~ /^\w{2}\d{2}$/);