#!perl -p s/AAA/B/;s/^AB|BBB/A/;s/^AB.*/A/