my %def = ('triangles?' => '?');
s/\s+$//;    # trailing
s/^\s+//;    # leading
s/\s+/ /g;   # multiple spaces to a single space
s/\b$i\b/$def{$i}/gi;