>>329
こんな描き方もあるです♪

# 存在する板のリスト
# 1行に1板ずつ描くの♪
# イパーイになってきたら外部ファイルにしてもいいかなと（そこまで増えるとは思えないけれども＠まち）
my %bbs_OK = map +($_, 1),
qw|
tawara
hokkaidou
touhoku
tokyo
kanto
tama
kana
toukai
kinki
osaka
cyugoku
sikoku
kyusyu
okinawa
|;

# ハシュに入っていなければundefが返ってくるので・・・
unless ($bbs_OK{$bbs}){
# ↓ここは専ぶらさくーしゃさん達のご意見を伺いたいかもかも
print "Location: http://www2.2ch.net/live.html\n\n";
exit;
}