use strict;
use warnings;

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