While I don't code in perl myself, one modern tool I use a lot is written in perl: https://github.com/digint/btrbk