$i=0; 
do{ 
    ...
    $i++ 
} until <somecondition>;
my $x = substr $somestring, 0, $i;