Help for this page
... 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"; ...