perl -ple'$_=/.{5}/?(uc^"li"."n"x(y!!!c-4)."ux")=~tr/ //c:-1'