Return to Answer

-2 bytes, thanks to Dada

edited Jun 22, 2017 at 16:56

edited Jun 22, 2017 at 16:56

Perl, 6058 bytes

5957 bytes code + 1 for -p.

s$v="([aeiouy]+)";s!\w+ \w+!$&=~s/([aeiouy]+)$v(.*? .*?)([aeiouy]+)$v/3ドル2ドル1ドル/r!ge

-2 bytes thanks to @Dada !

59 bytes code + 1 for -p.

s!\w+ \w+!$&=~s/([aeiouy]+)(.*? .*?)([aeiouy]+)/3ドル2ドル1ドル/r!ge

57 bytes code + 1 for -p.

$v="([aeiouy]+)";s!\w+ \w+!$&=~s/$v(.* .*?)$v/3ドル2ドル1ドル/r!ge

-2 bytes thanks to @Dada !

answered Jun 14, 2017 at 7:35

answered Jun 14, 2017 at 7:35

59 bytes code + 1 for -p.

s!\w+ \w+!$&=~s/([aeiouy]+)(.*? .*?)([aeiouy]+)/3ドル2ドル1ドル/r!ge