Select Code to Download

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

while( $data =~ m{ \G
            <a \s+ href = " (\d+) "></a>
...
    my $data   = $2;
    #...
}