#!perl -n
push@buf,$_;