>>534
ごめん。何時でもフォーム優先なら、
if ($c_nen eq "") { $c_nen = '0'; } ってのを、

$c_nen = $in{'nen'} if $in{'nen'};
if ($c_nen eq "") { $c_nen = '0'; }
の二行に変える。($in{'nen'}に入ってれば)

>>538
539の人が言うようにいったん退避させてから#以降を除けば？
$plaincookiename =~ s/(.*)#[^#]+/$1/;
こんな感じ?で。