Select Code to Download

#!/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;
}