my ($error) = /(INVALID ORDER-NO \d+)$/;