if ($text !~ m/.../)

if (not $text =~ m/.../)

unless ($text =~ m/.../)




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl