$meat = 'QfUiAlLlIeTrY';
$meat =~ s/[[:lower:]]//gs;