mattn · May 11, 2010 04:52
diff --git a/MyFinger.pm b/MyFinger.pm
 package MyFinger;
 use Filter::Simple;
 FILTER_ONLY
  code  => sub {
    s/(\$[a-zA-Z][a-zA-Z0-9]*\s*)☞/\1->/msxg;
    s/([a-zA-Z][a-zA-Z0-9]*\s*)☛/\1=>/msxg;
  };
 1;
diff --git a/test.pl b/test.pl
 use strict;
 use warnings;
 use MyFinger;

 my $foo = {
 	bar ☛ "baz"
 };

 warn $foo☞{bar};