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