if ($_ =~ /^DATA\:/) {
    $LINE = join("", $LINE, $_);
}

##</code><code>##

Use of uninitialized value in join or string at C:\Test.pl line 5.