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

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