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

##</code><code>##

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