#!C:/Perl/bin -w
use File::Slurp;

my $filetext= read_file("input.txt");

while($filetext=~ m{(.{30}(these\s+are\s+my\s+keywords).{30})}gis)
{
print "$1\n";
}