#!/usr/local/bin/perl

# convert phone number.
# $Id: 10to11,v 1.1.1.1 1999/01/13 06:26:55 nom Exp $

while (<>){
    s/([^\d])0([123489])0(\d{7}) ?/${1}090$2$3/; # Mobile Phone
    s/([^\d])0([56])0(\d{7}) ?/${1}070$2$3/;     # PHS
    s/([^\d])06(\d{7}) ?/${1}066$2/;             # Osaka
    print;
}
