$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";
			}
		]);