while (<FILE>) {
  s/^/[$.]/;
  $file .= $_;
}