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