### 後ろめたい amazon アソシエイトリンクの作成
# usage: {{qualmish_amazon_link('ASIN', 'ID', 'STR')}}
sub qualmish_amazon_link {
my ($asin, $id, $str) = @_;
my $prefix = "http://www.amazon.co.jp/exec/obidos/ASIN";
$str =~ s/(\s|^)(\S+\.(jpg|jpeg|png|gif))/$1<img src="$2">/gi;
return qq(<a href="$prefix/$asin/$id/ref=nosim"
onMouseOver="window.status='$prefix/$asin'; return true;"
onMouseOut="window.status=''; return true;">$str</a>);
}