7.1/src/make-README

   1 #!/usr/bin/perl
   2
   3 sub bc {
   4     local $_ = `$_[0]`;
   5     chop;
   6     return $_;
   7 }
   8
   9 $/ = undef;
  10 open F, "README.in";
  11 $_ = <F>;
  12 s/\@\`([^\`]+)\`/bc($1)/ge;
  13
  14 open F, ">README";
  15 print F;
  16