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