I Hate EDI

Why can't people just use XML? Seriously. Seriously. Perl headaches.

sub ParseOrder {
  foreach (@_) {
    if (/^[ \t]*PRODUCT[ \t]*:[ \t]*/) {
      &GetUPC(&Trim($'));
    }
    elsif (/^[ \t]*PURCHASE[ \t]*ORDER[ \t]*:[ \t]*/) {
      if ($' =~ m/^([0-9]*)/) {
        print $1 . "\n";
      }

      if ($' =~ /[ \t]*PO[ \t]*DATE[ \t]*:[ \t]*/) {
        print $';
      }
    }
  }
}