while <FILE> {
 tr/\r\n//d;
 # etc.

##</code><code>##

 tr/\r\n//d;
 next if $_ eq '';