perl -wE '$description = qq(fooWYSIWYG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/<br>/gr : $description;'
perl -wE '$description = qq(fooWYSIWOG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/<br>/gr : $description;'