$regexp = ...;
if($value !~ /$regexp/)
  { $err .= "wrong value ($value)" }

##</code><code>##

$subref = ...;
if(! &$subref($value))
  { $err .= "wrong value ($value)" }