#!perl -p
$~=($~^$_)!~/ {16}|^'/?s/^/ /^redo:uc