C:\test>perl -E"say `tasklist|find \"$$\"`; $x=chr(0); $x x= 2e6; say `tasklist|find \"$$\"`; undef $x; say `tasklist|find \"$$\"`"
perl.exe                    139252 Console                    1      4,660 K
perl.exe                    139252 Console                    1      6,680 K
perl.exe                    139252 Console                    1      4,724 K