$file =~ s#^\s#./$&#;
open(FOO, "< $file\0");
