while (<DATA>) {
    chomp;
    for ($_) {
        say    scalar reverse when $.     == 4;
        say uc scalar reverse when $. % 2 == 0;
        default { say };
    }
}