Select Code to Download

perl -ne 'system( "perl search.pl -pattern $_ -ignorecase c:\\inetpub\
+\wwwroot\\iprt")' mylist.txt

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );