とりあえず、sub getformに

$value =~ s/<(\/?)めはらみか>/<$1b>/g;

でも挿入しとくべし。