#!perl -pl
$_.=-AI;s;ai-;