Select Code to Download

use warnings;

...
print "1.".$splitted[1]."\n";
__END__
Use of uninitialized value $_ in split at tmp.pl line 7.

@splitted=split("\<\/Text\>".$text);
#                           ^

@splitted=split(m!\<\/Text\>!, $text);