perl -pe 's/([^aeiou]+)(.+ )((?1))/\3\2\1/' << EOF
plaster man
blushing crow
litigating more
strong wrangler
def ghi
EOF