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