print map {
        (map {s/"//g} split /,/, $_)[1]
    } `tasklist /FI "IMAGENAME eq perl.exe" /NH /FO CSV`;