C:perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 1040352;  say `tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe    2208 Console   0      2,556 K
perl.exe    2208 Console   0      3,600 K
perl.exe    2208 Console   0      2,584 K


C:perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 1040352;  say `tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe    576 Console    0      2,552 K
perl.exe    576 Console    0      3,592 K
perl.exe    576 Console    0      2,576 K


C:perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 1040352;  say `tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe    5712 Console   0      2,556 K
perl.exe    5712 Console   0      3,600 K
perl.exe    5712 Console   0      2,584 K


C:perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 1040352;  say `tasklist|find \"$$\"`; undef $x; say `ta
sklist|find \"$$\"`"
perl.exe     5468 Console   0     2,552 K
perl.exe     5468 Console   0     3,596 K
perl.exe     5468 Console   0     2,580 K