@stuff = split m{
        <!--end-->
        <a \s name=" ( \d+ ) "></a>
        <!--start-->
        }x => $data;