in reply to Re^3: Determine whether file is dos or unix format
in thread Determine whether file is dos or unix format

my $text = do { ... };
is slower than
my $text; { $text = ...; }
and requires twice as much memory.

I agree that it looks nicer, and I usually use it for that reason.