Перекодирование в Perl

#! /usr/bin/perl -w

while (<>) { chomp; foreach $c (split(//)) { printf "&#%d;", ord($c); } print "\n"; }

#! /usr/bin/perl -w

while (<>) {
        chomp;
        foreach $c (split(//)) {
                printf "&#%d;", ord($c);
        }
        print "\n";
}

Спасибо!