my $quoted_number_string = quotemeta $number_string;
$quoted_number_string = quotemeta $quoted_number_string;
$quoted_number_string    =~ s/\\\@P\\\@/([0-9]+)/;
...
qr/.*$card,$sim.*$quoted_number_string.*/i