#!/usr/bin/env perl
use utf8;
###############################################################################
# This program demonstrates string concatenation.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
	my $a = "one";
	my $b = "two";
	my $c = "three";
	my $d = $a . $b . $c;
	print $d, "\n";
	$d = $a . "\t" . $b . "\n" . $c;
	print $d, "\n";
}