while ( /($regex)/gx )
{
    push @substrings,
        { match => $1,
          pos   => ( pos() - length $1 ),
          length => length $1 };
}