#!perl -p s/a|c$/$&b/g