$ id|perl -nle 'print /( (??{ q[uid=\d+] }) )/x'
uid=1000