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