>>111
if (scalar(grep /\w/, @_) == scalar @_){
# 処理
}
かな?