情報も漏れたことだし、OFF会でもやろっかw

冗談はさておき、とりあえず
unless ($Qs_get{"dat"} =~ /[0-9]+.dat/){exit(0);}
とでもしておけばいいのはよーくわかった。
いまソースに手が届かない場所にいるので明日あたり修正しておきまふ。