Help for this page
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";