my $$$a = \\$b;

##</code><code>##

my $match = '\D';
print "non digits found\n" if $str =~ $match;