Select Code to Download

$exp->expect($timeout,
        [ qr/.*$card,$sim.*Your Number is \+([0-9]+).*/,
...
               print "Got gsm_number=$gsm_number_gotten for card=$card
+  sim=$sim\n\n";
            }
        ]);

my $number_string = 'Your number is \+([0-9]+)';

$exp->expect($timeout,
        [ qr/.*$card,$sim.*$number_string.*/,
...
               print "Got gsm_number=$gsm_number_gotten for card=$card
+  sim=$sim\n\n";
            }
        ]);