Select Code to Download

 ...
 my ($fiop, $length, $data)
...

 print "$fiop, $length, $data\n";
 ...

 
  ...
 (my $notags = $string) =~ s{<file.+?</file>}{};
  print "$notags\n";
  ...