Как мне остановить движение персонажей в консоли?

Я считаю, что Number :: Phone :: US и Regexp :: Common (особенно источник Regexp :: Common :: URI :: RFC2806 ) Могут помочь модули Perl.

Возможно, вопрос должен быть задан более подробно, чтобы объяснить цель проверки чисел. Например, 911 является допустимым числом в США, но 911x не имеет значения x. Это значит, что телефонная компания может рассчитать, когда вы закончите набор. Существует несколько вариантов этой проблемы. Но ваше регулярное выражение не проверяет часть кода области, поэтому это не вызывает беспокойства.

Как и для проверки адресов электронной почты, даже если у вас есть действительный результат, вы не можете знать, назначено ли оно кому-то, пока вы не попробуете его.

Если вы пытаетесь проверить ввод пользователя, почему бы не нормализовать результат и не сделать с ним? Если пользователь вводит номер, который вы не можете распознать как действительный номер, сохраните его как введенный или вычеркнутый недопустимый символ. Модуль Number :: Phone :: Normalize Perl может быть источником вдохновения.