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