Unrelated to the immediate problem, but you probably want ( |-|\.) instead of ( |-|.) near the start of your match, since the dot has special meaning within a regex and will match any character (almost. see perlre).

This means that currently that part of your regex is equivalent to just (.), and will happily match something like 8003555-1234