Wała tOmaszowi LiSowi - odczytać łatwiej

 #!perl
 use warnings;
 $txt = "";
 open FILE, "<", "perl.txt" or die $!;
 foreach(<FILE>){

if (m/^(\w)/){
         $txt .= $1;

}
 }
 close FILE;
 $txt = lc $txt;

$txt =~ s/\b(\w)/\u$1/g;
 print $txt;

Nie którzy bawią się w taką zabawę jak zapisywanie haseł, przewaźnie obraźliwych w formie “zakodowane”. To kodowanie polega na umieszczaniu kolejnych liter hasła w pierwszej literze kolejnego wiersza. Była swego pamiętacie sprawę Wała tOmaszowi LiSowi.

Sam nie mogę się skupić odczytując literek z góry do dołu i potrzebowałem automatyzacji. Napisałem skrypt który od razu bierze pierwszą literkę każdego wiersza a potem wypisują jak w zdaniu.

Skrypt napisany z myślą o wykorzystaniu w systemie Windows, Ci co posiadają Linuksa czy inny system na pewno sobie poradzą.