Select Code to Download

unless ($var1) {
    $var2++;
...
else {
    $var3++;
}

perl -MO=Concise,-exec /tmp/p | grep var

3  <#> gvsv[*var1] s
7      <#> gvsv[*var3] s
d  <#> gvsv[*var2] s