Write a Perl script to substitute a word with another word in a string. Short c cut curly haircut female.

Karaage coréen. Neuropsychology OC.