Select Code to Download

use warnings;
use strict;
...
$status =~ s/(\W+)/ /gs;
$soc =~ s/(\W+)/ /;
$subscriber =~ s/(\D+)/ /; # and use of initialized value in join or s
+tring at print "@ar_OR_STA\n";