020200001117VUTVS01 00000745B3^V^V^A2^C^D^V^V^A 0000 0001 090104 N S00
+00000000 00001889^B{IT}R
[download]

If I use the {IT} like this, I code doesn't works.

while (<DATA>) {
s/.*?\{IT\}(.*)/{IT}\n$1/g;
s/^\s*//g;
[download]

I tried substituting the {IT} as above.
It's giving the error as Can't use an undefined value as a symbol reference at new.pl line 64, <DATA> line 4.
When I try to print,
print "The tag is---->$tag\n\n";
IT is not taken into consideration as tag value.
but gives out the error message as Can't use an undefined value as a symbol reference at new.pl line 64, <DATA> line 4.