cat file | perl -n0e 'BEGIN{$var = shift} #more code' myvar

##</code><code>##

VAR=myvar; export VAR; cat file | perl -n0e 'BEGIN{$var = $ENV{VAR}} #more code'