Жадность Perl

[Sergey2]

ну там же не только <b> может быть? Там может быть и <i> и <u> и <strong>. У меня мой код, кстати, работает.....

[arvitaly]

    $page2='<a href="/page.html?page=3&sort=a" title="gggg">ankor1</a>&nbsp;&nbsp;<a href="/page.html?page=4&gt=6" title="gg">ankor2</a>&nbsp;&nbsp;<a_href="/page.html?page=5&sort=a" title="gggg">ankor3</a>&nbsp;&nbsp;<a_href="/page.html?page=6&sort=a" title="gggg">ankor4</a>&nbsp;&nbsp;<a_href="/page.html?page=7&sort=a" title="gggg">ankor5</a>&nbsp;&nbsp;';
    $n='ankor3';
	if (($n_url)=$page2=~/<a[^<>]*href=\"([^\"]*)\"[^<>]*>(?:<\w*>)?$n(?:<\/\w*>)?<\/a>/)
    {
        print $n_url;
	}