$line = $_;
@outLine = split (/(<[^>]*>)/,$line);