http://www.perlmonks.org?node_id=1209116


in reply to system(find) unable to find a file even if the file exists

I'm not sure what find does on MSWin, but the first thing to do would be to remove the single quotes around *.txt: single quotes aren't special in Windows' shell, so they are understood as part of the file name.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,