view release on metacpan or  search on metacpan

Ukrop.pm  view on Meta::CPAN

	'×ÚÁÄ'     => 'return',
	'ÁÂÏ'      => 'else',
	'ÔÏ'       => '{',
	'ÏÔÏÖ'     => '}',
	'ÔÁË'      => '',
	'ÎÅÈÁÊ'    => 'my',
	'ËÁÖÉ'     => 'print',
	'ÄiÊÓÔ×Ï'  => 'sub',
	'ÄÏËÉ'     => 'while',
	'ÑËÝÏ'     => 'if',
	'ÄÏ×ÖÉÎÁ'  => 'length',
	'ÇÅÔØ'     => 'break',
	'×iÄÒiÖÅÍÏÞÉ›ÝÏ'=> 'chomp',
);

my $k  = join('|', sort keys %n);
my $nc = qr/[^a-zA-Z\x80-\xff]/;
$k = qr/(^|$nc)($k)(?=$|$nc)/;
use Filter::Simple sub { s/$k/$1$n{$2}/gs } ;

1;