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