local $/;  # One line = one file
while (<>) {
   my @input = split /^/m;
   if (!grep {/Friday/} @input) {
      splice @input, 1, 0, "Friday\n";
   }

   print @input;
}