C:\>perl vnxe_1.pl
ythS t o r a g e   s y s t e m   a d d r e s s :   1 9 2 . 1 6 8 . 1  . 1 2 3
  S t o r a g e   s y s t e m   p o r t :   4 4 3
  H T T P S   c o n n e c t i o n

  1 :         S y s t e m   n a m e                       =   C D R - V N X e 1
              M o d e l                                   =   V N X e 3 3 0 0
              P l a t f o r m   t y p e                   =   E M C   S t o r a g e   S y s t e m
              P r o d u c t   s e r i a l   n u m b e r   =   X Y Z  0 1 3 4 1 2 3 4 5 6 7
              A u t o   f a i l b a c k                   =   o n
              H e a l t h   s t a t e                     =   O K   ( 5 )
              H e a l t h   d e t a i l s                 =   " T h e   s y s t e m   i s   o p e r a t i n g   n o r m a l l y . "



##</code><code>##

use strict;
use warnings;
use Text::Unidecode;

my @arrayhealth = `uemcli -d $vnxe_ip -u $username -p $password /sys/general show -detail`;

my ($system_name, $model, $platform_type, $product_serial_number, $auto_failback, $health_state, $health_details) = @arrayhealth;

my @unidecode_arrayhealth = unidecode(@arrayhealth);

print "@unidecode_arrayhealth\n";


##</code><code>##