#!/usr/bin/env perl
use utf8;
###############################################################################
# This program prints town favorites using emoji.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

our $LOVE_TOWN = "Saint Louis";
our $HATE_TOWN = "East Saint Louis";
our $HEART = "\x{1F494}";
our $BROKEN_HEART = "\x{1F49C}";

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    my $LOVE = "I " . $HEART . " " . $LOVE_TOWN . "!";
    my $HATE = "I " . $BROKEN_HEART . " " . $HATE_TOWN . "!";
    print $LOVE, "\n";
    print $HATE, "\n";
}