Select Code to Download

 ...
 my $binary = pack 'F*', (3.141592) x 8001; # this will dump a 64K+ bi
+nary chunk
...
 (my $notags = $string) =~ s{<file.+</file>}{};
 print "\n$notags\n";
 ...