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