my $matched = do {
                   my $i = length $_;
                   $_ eq substr "foobar",0,$i;
                 };

##</code><code>##

my $matched = ($_ eq substr "foobar",0,length);