/write -c outfile.txt $read(infile.txt,tw,*wild*string*,1)

-genius_at_work