Split loop, <> line 1. #### while (<>) { ## fails on linux i386 multi thread $line = $_; @outLine = split(/(<[^>]*>)/,$line); ## works on linux i386 multi thread ## @outLine = split(/(<[^>]*>)/,$_); }