How do you parse a loop into segments? I'd like to see an example on how to use _parse_loop_start and _parse_loop. Just learning perl so i would apreciate if someone would post a sample script. Thanks.