Hi, I need help with the following issue where in interactive menu selection works fine manually but fails with perl ssh expect. When executing manually i get the following:

Please enter the operation serial number.  >1

NO.                                                NE name            
+                                NE type name                         
+              
1                                                  TB2SEE             
+                                HW_SEE                               
+              
2                                                  UKTB2SEE           
+                                HW_SEE                               
+              
3                                                  TB2SLEE            
+                                HW_SLEE                              
+              
4                                                  UKTB2SLEE          
+                                HW_SLEE                              
+              

***************Input Tips*************
a: To create a tracing task for an NE, enter the NE number.
b: To create a tracing task for multiple NEs, enter the NE numbers and
+ separate every two of them with a plus sign (+). Example: 1+2.
c: To create a tracing task for all NEs, enter 0.
**************************************
Please enter the NE serial number.  >
[download]

but when i run it from perl i get the following:

main::(iTrace_start_stop.pl:48):        $ssh->waitfor('Please\senter\s
+the\soperation\sserial\snumber.\s*', 2) or die "prompt 'operation ser
+ial number' not found after 2 second";
  DB<1> 
main::(iTrace_start_stop.pl:49):        $ssh->send("1");
  DB<1> 
main::(iTrace_start_stop.pl:50):        print $ssh->peek(1);
  DB<1> 
>1

NO.NE nameNE type name
---- More (Enter to show More) ----
[download]

My code is as follows:

 $ssh->waitfor('Please\senter\sthe\soperation\sserial\snumber.\s*', 2)
+ or die "prompt 'operation serial number' not found after 2 second";
    $ssh->send("1");
    print $ssh->peek(1);
$ssh->send("2");
[download]