#!/usr/bin/perl
use strict;
use warnings;

my $status = "it's a beautiful day but I am feeling crapy"; # note typo

$status =~ /(beautiful|average|tough)/;
print "Day: $1\n";

$status =~ /(happy|alright|crappy)/;
print "Feeling: $1\n";

__END__