l37.pl

   1 use utf8;
   2 use Encode;
   3 use strict;
   4
   5 #Более короткий вариант:
   6 #use encoding ’cp866’;
   7 binmode(STDIN, ':encoding(cp866)');
   8 binmode(STDOUT,':encoding(cp866)');
   9
  10 my $out= uc "Русский текст\n";
  11 print $out;
  12
  13 my $t= <STDIN>;
  14 $t =~ s/\w*(.*)/Хехе$1/;
  15 print $t;