local $/;	# Slurp
for (<DATA> =~ /(?:CWG)?\d{3,}/g) {
    print "ID: $_\n";
}
__DATA__
123
123456,34567889
12345,CWG123456,1234
"Blah Blah 10-20 m can be taken into consideration 1234556"
123,30,40
http://www.takeithere.com/123456789/fig1,987643,34467889