ありがとうございます！
でも、問題発生です（；；
moonさんに教えていただいた場所はちゃんと動いたのですが、ユーザーデータへの書きこみがされてないらしいです（＾＾；
sub fee_beforeの
print qq|アイテムの解呪料：HP $judg_hp 使用\n| if $sp =~ /Ki/;
　　　　&input('text','kaizyu',"$kaizyu",' size=10',' G<br>') if $sp =~ /Ki/;
の部分が怪しいのですが（＾＾
自分でユーザーデータへ直接書きこめば出来るのですが（笑

▼関連発言
│
└◆444:解呪について（；； [masaki] 03/22 12:58
　└◆445:Re:解呪について（；； [masaki] 03/22 13:41
　　└◆446:Re[2]:解呪について（；； [moon] 03/22 16:36
　　　└◆448:Re[3]:解呪について（；； [masaki] 03/22 17:59
　　　　└◆450:Re[4]:解呪について（；； [moon] 03/22 21:27
　　　　　└◆451:Re[5]:解呪について（；； [masaki] 03/22 22:43<-last