if( $sid !~ m/^([0-9]{1,5})$/ ) { # exit } else { $input = $1; }