NAME
    Address - RFC822 style address parser

SYNOPSIS
      use IM::Address;

      $pure_address_portion = &extract_addr($address_with_comment);

      $replaced_address = &replace_addr($original_address_with_comment,
            $pure_notation_of_old_address, $pure_notation_of_new_address);

      ($first, $rest) = &fetch_addr($address_list, $pure_address_flag);

DESCRIPTION
      $a = "Motonori Nakamura <motonori\@econ.kyoto-u.ac.jp>";
      &extract_addr($a) returns "motonori@econ.kyoto-u.ac.jp".

      $a = "Motonori Nakamura <motonori\@econ.kyoto-u.ac.jp>";
      $b = "motonori\@econ.kyoto-u.ac.jp";
      $c = "motonori\@wide.ad.jp";
      &replace_addr($a, $b, $c) returns "Motonori Nakamura <motonori@wide.ad.jp>".

      $a = "kazu, nom, motonori";
      &fetch_addr($a, 0) returns ("kazu", " nom, motonori").