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