Select Code to Download

uk1sxve01205.gfjgjf5.fdhd5
usasxve513.gfdhf4.hgfd4

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