my $pos; 
  if ( $line =~ $regex ) { 
     $pos = length $`; 
  }