[Israel.pm] Replace with Variable content

[Yuval Yaari]

ik wrote:

>Hello,
>
>I would like to do the following:
>
>....
>use strict;
>....
>my $allowedChars = "a-zA-Z\x{50D}";
>
>$line =~ s/[^$allowedChars]//gs;
>
>Now as you can see, this code will not be allowed to be used. So my
>question is how can I do something in this idea ?
>
I'm not sure; I'm using perl 5.8.7 and it works:
use strict;
my $allowedChars = "a-zA-Z\x{50D}";
my $line = 'a$b$c$d';
print "line 1 : $line\n";
$line =~ s/[^$allowedChars]//gs;
print "line 2 : $line\n";

Returns:

line 1 : a$b$c$d
line 2 : abcd

I also tried using warnings and diagnostics and still got no error/warning.

  --Yuval