open(FILE, '<', $file);

##</code><code>##

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