gistfile1.txt

#!/usr/bin/perl -w

use warnings;
use strict;
use feature 'say';
use utf8;
use open qw( :std :encoding(UTF-8) );
use lib ".";
use 中文;

say "hi";

package foo;
#包 你好;

print "here is 包 and foobar\n";
sub foo { 1 };
#函数 bar { 2 };

1;

gistfile2.txt

$ ./test.pl 
hi
here is 包 and baz

中文.pm

use utf8;
package 中文;
use Filter::Simple;
FILTER { 
  s/函数/sub/g;
  s/包/package/g;
  s/foobar/baz/g
};

1;