if ((scalar @$value) && not grep (/\/\*(.*)\*\//,@$value)) { }