Question

My string is: (some text followed by) User ‘Mr.G@rr!s0n’ is the admin.
I am using this regex pattern: /user\s'(.*)'\sis/i
However, I am getting the output as Mr.G!s0n

What exactly do I need to change in my regex pattern?

---

Here is the code snippet:

$text1 = "user 'Mr.G@rr!s0n' is the admin";

if($text1 =~ /user\s'(.*)'\sis/i)
{
    print "\n"; 
    print "Password: ".$1;
    print "\n";
}

Answer 1

I am guessing your code (that you won’t show for some reason) is something like this:

my $str = "(some text followed by) User 'Mr.G@rr!s0n' is the admin";
if ($str =~ /user\s'(.*)'\sis/i) {
    print "$1\n";
}

The problem here is that @rr is interpolated because you are using a double quoted string. Since you are obviously not using:

use strict;
use warnings;

..this error is silent. If you had used them, you would have gotten:

Possible unintended interpolation of @rr in string at
Global symbol "@rr" requires explicit package name at

To fix the problem, single quote your string using either '' or q():

my $str = q#(some text followed by) User 'Mr.G@rr!s0n' is the admin#;

As you notice, I used # as delimiter for q(), because both single quote and parentheses were already in the string.

The other possibility is that you are using your match in some kind of evaluation, but that would be silly. So I am not going to make guesses there.