Validation for Bitcoin Cash and Monero in Perl 5

Given a XMR or BCH address, I need a function that takes that address as input and returns true if the address is valid or false if it is not. Simple regex would *not* work, I need offline crypto validation. I don't need to know if the address have ever been used or created. I don't need to know if the address has funds in it. If you need to use Perl libraries, ideally if they are included as a package in Debian 9/10 that's ok. Compiling libraries from CPAN is to be avoided. Digest::Keccak is available. Skeleton of the program would be: ---- #!/usr/bin/perl use strict; use warnings; sub is_valid_xmr { ... } sub is_valid_bch { ... } my $valid_xmr = "44AFFq5kSiGBoZ4NMDwYtN18obc8AemS33DBLWs3H7otXft3XjrpDtQGv7SqSsaBYBb98uNbr2VBBEt7f2wfn3RVGQBEP3A"; my $invalid_xmr = "44ABFq5kSiGBoZ4NMDwYtN18obc8AemS33DBLWs3H7otXft3XjrpDtQGv7SqSsaBYBb98uNbr2VBBEt7f2wfn3RVGQBEP3A"; # cashaddr my $valid_bch = "qrm73ws0e4hq0u890v33u7smcd3qjy7yaspz9v42qh"; my $invalid_bch = "qrm73ws0e4hq1u890v33u7smcd3qjy7yaspz9v42qh"; # Will print "Valid XMR address" if (is_valid_xmr($valid_xmr)) { print "Valid XMR address"; } else { print "Invalid XMR address"; } # Will print "Invalid XMR address" if (is_valid_xmr($invalid_xmr)) { print "Valid XMR address"; } else { print "Invalid XMR address"; } # Will print "Valid BCH address" if (is_valid_bch($valid_bch)) { print "Valid BCH address"; } else { print "Invalid BCH address"; } # Will print "Invalid BCH address" if (is_valid_bch($invalid_bch)) { print "Valid BCH address"; } else { print "Invalid BCH address"; }