使用核心模块Time::Piece。

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;
use Time::Seconds qw{ ONE_DAY ONE_WEEK };

my $year = 2022;
my $month = 8;

my $tp = 'Time::Piece'->strptime("$year-$month-1", '%Y-%m-%d');
$tp += ONE_DAY * ((5 - $tp->day_of_week) % 7);  # First Friday.
$tp += 2 * ONE_WEEK;
say $tp;

我和池上有同样的想法。在代码中（使用日期时间）：

my $dt = DateTime->new(year => $year, month => $month, day => 1);
my $days_until_friday = (5 - $dt->day_of_week) % 7;
$dt->add(days => $days_until_friday + 14);
say $dt->ymd;

事实上，我们对日期的了解更多一些（或者，如果你想这样看的话，我们对模运算的了解更多一些）：一个月的第三个星期五总是发生在该月的15日和21日之间，包括15日和21日（第三个星期一、第三个星期三等也是如此。15日是第一个“第三个随便什么”，而22日是第一个“第四个随便什么”。）并且15日将与1日落在一周的同一天。
所以这也是有效的：

my $dt = DateTime->new(year => $year, month => $month, day => 15);
$dt->add(days => (5 - $dt->day_of_week) % 7);
say $dt->ymd;

而且，如果你想要真正的棘手（不推荐），这也是有效的：

my $dt = DateTime->new(year => $year, month => $month, day => 17);
$dt->add(days => 5 - $dt->day_of_week); # No modulo!
say $dt->ymd;

我把它留给感兴趣的读者去弄清楚为什么最后一个有效：）