@line = split(/ /,$_);
     $test = $line[2];
     if ($test == '<stuff>')

##</code><code>##

if ( $_ =~ m/<stuff>/ )