#!/usr/local/bin/perl

while (<>) {

    s/(\D)\d\d:\d\d:\d\d(\D)/$1 RainbowTime $2/g;
    s/(\D)\d\d:\d\d(\D)/$1 RainbowTime $2/g;
    s/(\D)\d:\d\d:\d\d(\D)/$1 RainbowTime $2/g;
    s/(\D)\d:\d\d(\D)/$1 RainbowTime $2/g;

    s/(\D)\d\d\d\-\d\d\d\d(\D)/$1 RainbowPhoneNum $2/g;
    s/(\D)\d\d\d\D\d\d\d\-\d\d\d\d(\D)/$1 RainbowPhoneNum $2/g;
    s/(\D\D)\d\d\d\D\D\d\d\d\-\d\d\d\d(\D)/$1 RainbowPhoneNum $2/g;

    s/(\D)\d\d\d\d\d\-\d\d\d\d(\D)/${1} RainbowZipcodePlusFour ${2}/g;

    s/(\D)\d(\D)/${1}RainbowOneDigit${2}/g;
    s/(\D)\d\d(\D)/${1}RainbowTwoDigit${2}/g;
    s/(\D)\d\d\d(\D)/${1}RainbowThreeDigit${2}/g;
    s/(\D)\d\d\d\d(\D)/${1}RainbowFourDigit${2}/g;
    s/(\D)\d\d\d\d\d(\D)/${1}RainbowFiveDigit${2}/g;
    s/(\D)\d\d\d\d\d\d(\D)/${1}RainbowSixDigit${2}/g;

    s/\d+/RainbowDigits/g;

    print;
}