#! /usr/bin/perl

use Palm::Memo;
my $a=Palm::Memo->new();

$a->Load("MemoDB.pdb");

foreach my $m (@{$a->{records}}) {

  if ($m->{data} =~ /^\\ (\S+)/) {
    print "FORTH [$1]\n";
    open F, "> $1.mem" or die "$!";
    print F $m->{data};
    close F;
  }
}