my $match = qr/Hello\s*World/;
while (<DATA>) {
    print if /$match/;
}
__DATA__
Hello          World
Hello World
Hello World                .