Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
/base-dir/dir/foo.txt INVALID ORDER-NO 4546090
INVALID ORDER-NO 4546090
INVALID ORDER-NO 4546090

Select or download this

while (<DATA>) {
    chomp;
    s/^\/\S+\s//;
    print "$_\n";
}