$f =~ s/\s([iaeouyE]):(?!\S)/ $1/;

##</code><code>##

    $f =~ s/(?<=\s[iaeouyE]):(?!\S)//;