#!/usr/bin/perl -W

use strict;

my $string = <<HERE;
abc defg
hijk    lm
no  pqr
stu
vwkyz
HERE
 
my $find = "hijklmnop";

# get a copy to avoid modifying orig
$_ = $string;

# remove all spaces 
s/\s//gs;  # note the /s that davido referred to
 
print "Matched!\n" if $_ =~ $find;

# to see what the subst did.
print $_;