if ($data =~ m/\(0x/ and $data =~ m/(?:SCALAR|ARRAY|...|HASH)\(0x[0-9a-fA-F]+\)/) { # warn about bogus data... } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl