Help for this page
$str =~ m TpatternTi;
# the only obfu'd part of this code would be the regex # which fails anyway so nevermind the obfu ... print "\n"; # throws error: # Missing right bracket at az.pl line 17, within pattern