my $var = ...;
if ($var =~ m/(sane regex)/) {
    $var = $1;
}
else { die ... }