#!perl -p
s;ai$;AI;||s;$;-AI