my $match;
if(defined $input){
    $match = /.../;
}
else{
    $match = undef;
}