Ok so I did some further debuging and I have things working till the next case match:

               [qr">> Real server $number - $",
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$apply\r";
                   sleep 2;
                   exp_continue;
                 }],
[download]

When I see the next >> Real server I am stuck in the apply loop and it wont send the save command, so I wondered if I could do a double match like look for the line before and then match the >> Real server line for the save command

               [qr">> Real server $number - $",
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$save\r";
[download]

Does anyone have any thoughts on this??

Thanks all