root/docs/yappo/20080515-yapcasia2008/dan2.pl

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