$htmlfile =~ s/<a\s+href\s*=\s*(["']?)(http.*?)\1>/
               @markers or die "More URLs than markers.\n";
               qq{<a href="$2} . shift(@markers) . '">'/gie;

@markers and die "More markers than URLs.\n";