#!/usr/bin/perl
my @days = ("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa") ;
foreach (@days) {
        if ($_=~/Fr/) {
                print "Friday OWNZ!\n"
                }
        else
        {
                print "$_\n" ;
        }
}