perl -E"my @tasks = map[ (split)[0,1] ], `tasklist /nh`; say qq[@$_] for @tasks"