uk1sxve01205.gfjgjf5.fdhd5
usasxve513.gfdhf4.hgfd4

##</code><code>##

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