Perl UK phone number validation and formatting