print $out $_ while s/^\s*\S+\s*//;