my @data = do { my @copy = @ARGV; local $/; map { shift @copy, map /(.*\n?)/g, $_ } <>; };