#!/usr/bin/perl -w

use strict;
use warnings;


my $SAMPLE = "Hello World\r\n";
my $MATCHALL = "ooreH\r\n";
my $SAMPLE_LENGTH = length($SAMPLE);

$SAMPLE =~ s/[\Q$MATCHALL\E]{1}//g;

if (length($SAMPLE) == $SAMPLE_LENGTH - length($MATCHALL))
{
  print "\nCONTAINS ALL THE CHARACTERS\n";
}
else
{
  print "\nDOES NOT CONTAIN ALL THE CHARACTERS\n";
}

exit;