perl -pe 's/([^aeiou]+)(.+ )((?1))/\3\2\1/' << EOFplaster manblushing crowlitigating morestrong wranglerdef ghiEOF
Standard input is empty
master plan crushing blow mitigating lore wrong strangler ghef di
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!