my ($Site_Code, @RS) = ($String=~ /^(...)....(\d+)/g);