Ja, schön. Ich arbeite schon lange und sehr viel damit, es ist ganz einfach zweckmäßig. U.a. auch hierbei:
x = y == z ? a : do{..};MfG
Wenn Ihr mir hier schon Perl draus macht, mal ein etwas ausführlicheres Beispiel zu do{}:
    if( my $keyword = $self->param('fetch') ){
        if( $keyword eq 'img' ) { 
            $self->{CONTENT} = do{
                my $fh = IO::File->new;
                $fh->open( "$ENV{DOCUMENT_ROOT}/red.gif", O_BINARY|O_RDONLY) 
                    or die "Fehler beim Lesen der Grafikdatei: $!\n";
                    
                read($fh, my $bin, -s $fh);
                $fh->close;
                $bin;
            };
        }
        else{
            # DEMO 
            die "Beim Lesen der Grafikdatei gab es einen Fehler!\n"; 
        }
    }
Oder wenn mal eben vorher noch was berechnet werden muss:
2 => do{$year--; "31.12.$year"}
MfG
 nicht angemeldet
 nicht angemeldet Orlok
 Orlok Gunnar Bittersmann
 Gunnar Bittersmann Matthias Apsel
 Matthias Apsel Rolf B
 Rolf B JürgenB
 JürgenB MudGuard
 MudGuard