next if $string !~ /<b>\w|\.+\.zip<\/b>/;
&do_something_with($1);