use strict;
use warnings;

while (<DATA>)
{
    print "$1\n" if !/^TAGS/ && /(.*?)(?=TAG2)/;
}

##</code><code>##

    print "$1\n" if !/^TAGS/ && /(.*?)TAG2/;