Amazon リンクを抜き出す

HTML から Amazon のリンクを抜き出すコード。

my @asin = $html =~ m!/ASIN/(\w+)!g

まじめにやろうとおもったけど satoru さん 案のこれが一番 pragmatic だ。