package MyRule::Oppai; use strict; use warnings; use utf8; sub name { return shift eq 'おっぱい' ? 1 : 0 ; } 1;