if (defined $foo and $foo eq 'true') {...}

##</code><code>##

sub is_true ($) { defined $_[0] and $_[0] eq 'true' }

if (is_true $foo) {...}
if (is_true $bar) {...}