view bin/unh @ 3085:6ec6d750fbf0

<nooodl> echo s/\\\\w\\\\w\\\\w\\\\w\\\\+/\\\\0chaf/g >> bin/chaf
author HackBot
date Tue, 11 Jun 2013 17:38:06 +0000
parents eee02eb985e4
children
line wrap: on
line source

#!/usr/bin/perl -p
s/([aeiouy])h([bcdfghjklmnpqrstvxz])/$1$2/ig