Personally I find understanding Date::Manip::Recur patterns a bit too complicated for my taste. I prefer DateTime::Set - more verbose of course, but IMHO better understandable and therefore more maintainable and reusable:

use warnings;
use strict;
use DateTime;
use DateTime::Set;

my $fridays = DateTime::Set->from_recurrence(
    start  => DateTime->new( year=>2020, month=>1, day=>1 ),
    before => DateTime->new( year=>2020, month=>6, day=>1 ),
    recurrence => sub {
        my $dt = shift;
        return $dt if $dt->is_infinite;
           if ( $dt->dow>5 ) { $dt->add(days=>12-$dt->dow) }
        elsif ( $dt->dow<5 ) { $dt->add(days=> 5-$dt->dow) }
        else  { $dt->add(weeks=>1) }
        die $dt unless $dt->dow==5;  # double-check
        return $dt;
    } );

my $iter = $fridays->iterator;
while ( my $dt = $iter->next ) {
    print $dt->strftime("%A, %B %e %Y"), "\n";
}

__END__

Friday, January  3 2020
Friday, January 10 2020
Friday, January 17 2020
Friday, January 24 2020
Friday, January 31 2020
Friday, February  7 2020
Friday, February 14 2020
Friday, February 21 2020
Friday, February 28 2020
Friday, March  6 2020
Friday, March 13 2020
Friday, March 20 2020
Friday, March 27 2020
Friday, April  3 2020
Friday, April 10 2020
Friday, April 17 2020
Friday, April 24 2020
Friday, May  1 2020
Friday, May  8 2020
Friday, May 15 2020
Friday, May 22 2020
Friday, May 29 2020
[download]