Perl: using unpack to split a string into fixed length - then reading the next line : I have an JSON Body of an http post that has to be split into 80 character double quoted strings - but - whenever I use unpack to read the first 80 characters, the string pointer in the source string (which is not CR/LF delimited at the end of each line yet) never changes - e.g. the loop below keeps reading the same string over and over:

    @row =unpack 'A80', $body;
    foreach $line (@row)
    {
	    @row =unpack 'A80', $body;
        print '"'.$line.'"' ;
    }


