perl -e'$_="fafbfc";/fc/;{local $`;/bf/;print $`,$/} print $`, $/'