Select Code to Download

use warnings;
use strict;
...
   }#while
 }#foeach
}

$status =~ s/(\W+)/ /gs;
$soc =~ s/(\W+)/ /;
$subscriber =~ s/(\D+)/ /;

use of initialized value in join or string at 
print "@ar_OR_STA\n";