my $pre  = 'Put the needle on the record';
my $post = 'the drum beats go like';
if ($corpus =~ /($pre\W*){3}when $post this!/) {
    $volume++;
}