Help for this page
#!/usr/bin/perl use warnings; use strict; ... flock $fh, LOCK_EX; binmode $fh; my $text = <$fh>;
$text =~ tr/0-9{}//d; seek $fh, 0, 0; truncate $fh, 0; print $fh $text; }