Perl и регулярные выражения

Есть следующая задача из области телекоммуникаций. Приходит номер ($number), необходимо произвести две вещи : if ($number matches with $match_regexp) { <tranlate number>, где преобразование номера может включать в себя: a) удаление частей номера, например префиксов b) добавление каких-либо префиксов c) список действий a) и b) }

Реально ли <tranlate number> также выразить в виде одного regexp и таблицу разбора номера представить в виде: $match_regexp, $trans_regexp ?

(Т.е. сделать ее простой и generic).