$success = TRUE;
$test = "42";
if $test =~ /^\d{2}/ { }
else $success = FALSE;

