$ perl -MO=Deparse test.pl
BEGIN { $^W = 1; }
sub dump_afp {
    my $obj = shift @_;
    my $struct = $obj->struct;
    my(@keys) = sort(grep((!/^_|^(?:Data|EscapeSequence|ControlCode|Length|CC|(?:Sub)?Type|FlagByte)$/), keys %$struct));
    push @keys, 'Data' if exists $$struct{'Data'};
    WID: foreach my $key (@keys) {
        next if ref $$struct{$key};
        next unless length($x = $$struct{$key});
        if ($obj->ENCODING and grep {$key eq $_;} $obj->ENCODED_FIELDS) {
            $x = $obj->$key;
            $x = qq["$x"];
        }
        elsif ($x =~ /[^\w\s]/) {
            $x = '';
        }
        if ($key eq 'Data') {
            if ($x =~ /^"(\w|\d|\$)/) {
                $x =~ s/"|\(|\)//g;
                if ($x =~ m[^\d\d/\d\d/\d\d\s]) {
                    my(@dateinfo) = split(/\s/, $x, 0);
                    if ($dateinfo[0] =~ m[^\d\d/\d\d/\d\d]) {
                        print '<DATE>';
                        print $dateinfo[0];
                        print "</DATE>\n";
                        print '<DESCRIPTION>';
                        print $dateinfo[1];
                        print "</DESCRIPTION>\n";
                    }
                }
                else {
                    if ($x =~ m[^\d\d/\d\d/\d\d]) {
                        print '<DATE>';
                        print $x;
                        print "</DATE>\n";
                    }
                    if (not $x =~ m[^\d\d/\d\d/\d\d] and $x != 'Patient') {
                        if (not $x =~ /^((\d+)||(\d+,\d+))\.\d\d/) {
                            print '<DESCRIPTION>';
                            print $x;
                            print "</DESCRIPTION>\n";
                        }
                    }
                }
                if ($x =~ /^((\d+)||(\d+,\d+))\.\d\d/) {
                    print '<AMOUNT>';
                    print $x;
                    print "</AMOUNT>\n";
                }
                if ($x =~ /^((\$\d+)||(\$\d+,\d+))\.\d\d/) {
                    print '<TOTAL>';
                    print $x;
                    print "</TOTAL>\n";
                }
            }
        }
        if ($x =~ /^Patient/) {
            last WID;
        }
    }
    if ($obj->has_members) {
        dump_members($obj);
    }
}
test.pl syntax OK