use strict; use warnings; @ARGV = grep {length $_} map {my @ar = split /\s/; shift @ar,"@ar"} map {split /\n/} <