Select Code to Download

...
  @myarray = split /></,$line;
...
  $line = join '><', @myarray;
  print OUTFILE, $line;
...

$line =~ s/<TAB>/\t/;