You got typos :) this means start using /x so you can see them clearly

my $reg = qr/
^
(?<fname>\S+)
\s+
(?<mname>\S+)
\s+
(?<lname>\S+)
\s+
\[
    (?<date>[^\]]*)
\]
\+s+ # TYPOS
\k<fname>
\z
/x;
[download]