perl -00 -nle 'print if /21-digit-number(.|\n)+(\*\*\*\.*UID)/'