perl -MHTML::Parse -le " system qq[pslist.exe -m $$ 2>NUL]; for(1..40000){ $ju = parse_html(q{ <p>yo</p> }); $junk = $ju->format; $ju->delete; } system qq[pslist.exe -m $$ 2>NUL]; "