if ( $string =~ /(<b>\w|\.+\.zip<\/b>)/ )
{
    &do_something_with($1); # first
    next;                   # next
}