$number =~ s/[^\d:]//g;
if (grep $_ eq $ARGV[0], split ':::', $number) {
    say $number;
}