use strict;
use warnings;
use dan cat_decode => sub {
    my $str = shift;
    $str =~ s/jcode.pl/Encode.pm/;
    $str;
};
print "jcode.pl\n";