Starting EXPECT pattern matching... at /usr/local/share/perl5/Expect.pm line 597 Expect::expect('Expect=GLOB(0x2ae3d80)', undef, 'ARRAY(0x2ae4218)') called at /products/backend/***/expect3.pl line 86 handle id(9): list of patterns: #1: -re `[\r\n]?[^\r\n]+[%#>$] $' handle id(9): Does `' match: pattern #1: -re `[\r\n]?[^\r\n]+[%#>$] $'? No. handle id(9): Does `\033]0;user1@da3p-host-**-aut001:~\007\033[?1034h[user1@da3p-host-**-aut001 ~]$ ' match: pattern #1: -re `[\r\n]?[^\r\n]+[%#>$] $'? YES!! Before match string: `' Match string: `\033]0;user1@da3p-host-**-aut001:~\007\033[?1034h[user1@da3p-host-**-aut001 ~]$ ' After match string: `'