> > C:% perl
> > $giko = 'ギコハハハ';
> > $match = 'ハ'
> > print("ギコハハハ") if ($giko =~ m/$match/)
> > ^Z   ←これは Ctrl + Z な。
> > ギコハハハ
> どうして漏れは最後に^Cを打ちたがりますか(;´Д`)

signal(TERM,IGNORE);

参考：2000/10/27(金)20時53分06秒