#!/usr/bin/perl -w

use strict;
use warnings;


my $SAMPLE = "Hello World\r\n";
my $MATCHALL = "oreH";

$MATCHALL =~ s/[\Q$SAMPLE\E]+//g;

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

exit;