Help for this page

Select Code to Download

Select or download this

while (<DATA>){print join "_",(split/[ \/]/,$_)[1,2,4]}
__DATA__
Wed 08/22/2001 2:38p