#AMAZON AFFILIATE TRANSFER #˜R‚ê‚ÌŒfŽ¦”‚ɋM“a‚ÌID‚Å‘‚«ž‚Þ‚È‚æII #copyright(c) 2003 Yuumi #http://gochagocha.ribbon.to/ #gochagocha@ribbon.to $check_S = 'amazon.co.jp/exec/obidos/ASIN'; $Ama_ID = 'ribbonnetwork-22'; $after_string = &AmaTransfer( $before_string ); sub AmaTransfer{ my $mstr = shift; $mstr =~ s|$check_S/?([A-Za-z0-9]+)/?[0-9A-Za-z\\\/\_\-\=]*|$check_S/$1/$Ama_ID/|ig ; return $mstr; }