Select Code to Download

my $var if $test;

my $var = 1 if $test;

my $var = 1 if $test;

my $value = $1 if $foo =~ /^\w+(\d+)/;
do_something($value) if defined $value;

$ perl -Mstrict -Mwarnings -e  ' my $c = 1 if 1; print $c;'
1
...
$ perl -Mstrict -Mwarnings -e  ' my $c if 1; print $c;'
Use of uninitialized value $c in print at -e line 1.

my $var = 1 if $test;