What’s new in Perl 5, Version 13(dagolden.com)

    say do {
        if    ($grade eq 'A') { 'Well done!' }
        elsif ($grade eq 'B') { 'Try harder!' }
        elsif ($grade eq 'C') { 'You need help!!!' }
        else                  { 'You are just making it up!' }
    };

    say do {
        given ($grade) {
            'Well done!'        when 'A';
            'Try harder!'       when 'B';
            'You need help!!!'  when 'C';
            default { 'You are just making it up!' }
        }
    };

    $foo = $bar =~ s/this/that/r
                =~ s/that/the other/r;