good afternoon, I am trying to get the following as a result: xxxxxxx9988
#!/usr/bin/perl -w
$card_number = '123456789988';
$card_number =~ s/\d{8}(\d{4})/x'x'8 . $1/e; # not working....
print "$card_number\n";
Is there a clever trick using tr =~ or something similar?
Thanks!
Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
