Help for this page

Select Code to Download

Select or download this

my @data = qw( workstation_1_1 workstation_1_2 
               voiceserver_1_2 voiceserver_1_1 );
...
               [ split(/_/,$_) ] 
             } 
             @data; # the operation starts here (believe it or not)