if ($string =~/\w{1,12}\s+(\d{1,5})\s+[a-zA-Z]{4}/sm){
$sites = $1;
}