"http://amds.jp/magazine/4360.html"のようなURLの場合、"http://amds.jp/magazine/"の部分を" wget --post-data="number=amds-"に置換し、これに続くマガジンIDを残して".html"の部分を"&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.cgi"と置換します。つまり、Perlスクリプト的にはこんな感じです。
open IN,"mag.txt"; while(<IN>){ s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/; s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP®=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/; s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/; s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/; print; } close IN;
wget --post-data="number=amds-4360&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.cgi