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