($untainted) = $file =~ /^(.*)$/s;