skrypt w perlu realizujacy to co powyżej wygląda tak (chyba działa :) )

#!/usr/bin/perl
while (<>) { $f.=$_; }
$_=$f;
tr/A-ZĄĘĆŃÓŚŹŻ/a-ząęćńóśźż/;
s/\.([ \n]?)(.)/\.$1\U$2\E/g;
print;

--
  .d$$$$b,  $d$$$$b. .d$$$$b, Marcin Gryszkalis <[EMAIL PROTECTED]>
  $$'  `""  $$'  `"' $$'  `$$ 
  $$.  .ss  $$       $$    $$ (...) QED.  (QED translates from the Latin
  `"8$$8"'  88       88    88                     as "So what?")

Odpowiedź listem elektroniczym