$text =~ tr/0-9{}//d;
    seek $fh, 0, 0;
    truncate $fh, 0;
    print $fh $text;
}