tasklist /nh /v | perl -nle"@a=unpack'A29A5A123A*',$_; print join'|',@a[1,3]"