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

my $string = 'Gyatso is a bad monk as bad as bad bad as bad bad bad bad bad.';
my $n = 5;
print ($string =~ /(^Gyatso(?:.+?bad){$n})/);