[ic] perl to strip hyphens etc?

[DB]

> I think IC has some (perl?) magic to strip hyphens and spaces from 
> credit card numbers. I want to do the same with phone numbers. Can 
> anyone tell me where that is, or better yet post the magic perl snippet?
> 
> DB

Ok I tried  the following but it seems to have no effect. I'm trying to 
remove hyphens from a phone number before I write it to a file.

#clean up phone numbers
$phone_day=$array->{phone_day};
$phone_day=~ s/[\-]+/ /g;
print OUTFILE "$array->{phone_day}|";

Why does this not work? Any ideas?

DB