#!/usr/bin/perl
use strict;
use warnings;

my $pattern ='hello';

open (my $fh, '>', 'results.txt') or die "results.txt: $!";
binmode $fh;
print $fh "\nhello";
close $fh;

open FILE, "< results.txt" or die "Can't open results output file: $!";
while (my $line=<FILE>)
{  
    if($line=~m/\b$pattern/)
    {
        print " match: <$line>";
    }
}

close FILE;