my @nums = grep $_,split /(\d{3})/g,$a;