$zoektekst=~s%(d{13})\s+CG1%%;
print $1;