perl -MO=Deparse -n -e '@a = <>; END{ print @a; } ' LINE: while (defined($_ = )) { @a = ; sub END { print @a; } ; }