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

##</code><code>##

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