while (<>) {
    chomp;
    my ($id, undef, $abs)=split /\|/;
    print "$id|";
    my $i;
    print '<', ++$i, '>',
      join ' ', map matchword($_), split
      for split /\./, $abs;
    print "\n";
}