if ( $line =~ /NEWTABLE/) {
   seek(FH, (0 - length($line)+tell(FH)), SEEK_CUR);
   $line = <FH>;
   chomp($line);
   print "LINE AFTER SEEK :$line:\n"
}

##</code><code>##

"LINE AFTER SEEK :EWTABLE:\n"