こんな感じになるかとー

2) Rock54 サブルーチン

sub BBXcheck
{
my ($GB) = @_;

#以下の板はするー
if($GB->{FORM}->{'bbs'} eq "sec2chd"){return 0;}
if($GB->{FORM}->{'bbs'} eq "ad"){return 0;}
#★はスルー
if($GB->{FORM}->{'FROM'} =~ /★$/){return 0;}
#●はスルー
#if($GB->{MARU}){return 0;}
#広告かな?
my $NG_word = &IsKoukoku($GB);
if($NG_word eq ''){return 0;}

# それぞれの値を取り出したいときは、以下のようにデリファレンスすれば・・・
my @NG_word_status = @{$NG_word};

# このようにそれぞれに値が代入されます。
# $NG_word_status[0] には規制文字列 [Shift_JIS]
# $NG_word_status[1] には MD5 値
# $NG_word_status[2] には フラグ

※つづく（改行大杉（滂沱））