in reply to Extracting text from a line
perl -ne 'print $1 if /^UID:\s*(\w+)/' fileRead > fileWrite [download]