$_=uc,s'.X.*X'{"@_"'?eval"sub $_}":print eval,$/for<>