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

##</code><code>##

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

##</code><code>##

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