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