>>655
myしる。そうすればブロック抜けた時に消える。

{
my $c = '(　ﾟдﾟ)';
# 〜$cを使う処理〜
}