l49.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4 use utf8;
   5 binmode(STDOUT, ':encoding(utf8)');
   6 my $text= 'Я ужасный мутант хомячек.';
   7 my $text2= 'Научный сотрудник';
   8
   9 $text =~ s/(\w*)(.*)\./$1, \l$1, \l$1-$2!/;
  10 print "$text\n";
  11
  12 $text2 =~ s/(.*)/$1 в белом халате! А ну-ка давай еще!/;
  13 print "$text2\n";