@outLine = split(/(<.*?>)/,$line);

##</code><code>##

use re 'debug';