wäre es nicht einfacher, das mit s///eg zu machen, so in der Art:
s/(3[47]\d{9})(\d{4})/is_valid("$1$2") ? "XXXXXXXXXXX$1" : "$1$2"/eg