$ perl -e'opendir($dh,".") or die $!; for (readdir($dh)) { unlink $_ if /popd/ }'