Unrecognized escape \H passed through at Perl-1.pl line 22.
Unrecognized escape \P passed through at Perl-1.pl line 22.

##</code><code>##

use warnings;
use strict;