#!perl -p s/^/$s/;$s=$"x y/ -z//