perl -ne "system qq[perl search.pl -pattern $_ -ignorecase c:\\inetpub\\wwwroot\\iprt]" mylist.txt