Select Code to Download

my @online_services = `svcs` =~ /^online.*svc:(.*?):/gm;

#! perl
use strict;
...
    print "----------\n";
    dd \@y;
}

13:56 >perl 720_SoPW.pl
        Rate   MAP G_MOD
...
The arrays are equal; each has 619 elements

13:59 >