@check = $telnet->cmd(String=>$RTRVPM1);

$response = join(" ", @check);

print $response;

##</code><code>##

    EQUIP-OME1 15-08-26 01:30:54
 M  CTAG COMPLD
    "OC48-1-14-2,OC48:OPRN-OCH,36,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
    "OC48-1-14-2,OC48:OPTN-OCH,97,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
    "ETH-1-13-1,ETH:INFRAMES-E,978758,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
    "ETH-1-13-1,ETH:OUTFRAMES-E,1057147,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
 >
 
    EQUIP-OME1 15-08-26 01:30:55
 M  CTAG COMPLD
    "OTM2-1-1-1,OTM2:OPR-OCH,-10.70,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
    "OTM2-1-1-1,OTM2:OPT-OCH,-6.50,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
 >
 
    EQUIP-OME2 15-08-26 01:30:56
 M  CTAG COMPLD
    "OTM2-1-3-1,OTM2:FEC-OTU,30181635949,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
    "OTM2-1-3-1,OTM2:PFBERE-OTU,1E-37,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
    "OTM2-1-3-1,OTM2:PRFBER-OTU,3.3E-05,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"

 ;
<