open(FH, "datebook.master") or die;@lines=;@fields = map { split(":") } @lines;foreach $field (@fields){ print $field,"\n";}