Help for this page

Select Code to Download

Select or download this
print qq{DATE\t "$1-$2-$3"\n};

Select or download this

while (<INFO1>) {
    if (/^DATE\s*(\d+)-(\w+)-(\d+)/) {
        print qq{\nDATE\t"$1-$2-$3"\n};
...
    }
}