my $i=0;
{
    ...
    last if <somecondition>;
    $i++;
    redo;
}
my $x = substr $somestring, 0, $i;