$file1 = s/(\W)/\\$1/; # and similarly for other filenames
open( SH, "| /bin/sh");
print SH "$program1 $file1 | $program2 | $program3 > $file2\n";
close SH;