.........<TD align=center Class="ms-vb" id="bottomPagingCell"><table><td nowrap class="ms-paging">1&nbsp;-&nbsp;100</td><td> 
            <A HREF="javascript:" OnClick='javascript:SubmitFormPost("http:\u002f\u002fwdcbeta.sharepointsite.net\u002f_layouts\u002fpeople.aspx?Paged=TRUE\u0026p_FSObjType=0\u0026p_Title=Michl\u002520Non\u0026p_ID=119\u0026View=\u00257b4B73D499\u00252dCD8D\u00252d4DE4\u00252dABB5\u00252d1911503FA95C\u00257d\u0026FilterField1=ContentType\u0026FilterValue1=Person\u0026MembershipGroupId=0\u0026PageFirstRow=101");javascript:return false;'><img src="/_layouts/1033/images/next.gif" border=0 alt="Next"></A></td></tr></table></TD></TR>
<TR><TD class="ms-bottompagingline3">.......

##</code><code>##

my $stream2 = $mech1->{content};
(my $stream_chunk) = $stream2 =~ /bottomPagingCell(.*)bottom/; # <---- fails here 
if (/javascript:SubmitFormPost\(\"(.*)\"\)/)
{
mech1->get($1);
}
else
{
# no new page 
}