s/(?<=\w)(.)/\l\1/g for $test;
s/Ltd/LTD/ for $test;