#!/usr/bin/env perl
use utf8;
###############################################################################
# This program illustrates some of the string functions in Utils
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use Utils;
use strict;
use warnings;

our $ltrstr = "   Spaces to the left";
our $rtrstr = "Spaces to the right  ";
our $trimstr = "   Spaces at each end   ";
our $blank = "  \t\n  ";
our $lowerstr = "This String is Lowercase";
our $upperstr = "This String is Uppercase";

MAIN:
{
	print "|", Utils::ltrim($ltrstr), "|\n";
	print "|", Utils::rtrim($rtrstr), "|\n";
	print "|", Utils::trim($trimstr), "|\n";
	print "|", Utils::trim($blank), "|\n";
	print "|", lc($lowerstr), "|\n";
	print "|", uc($upperstr), "|\n";
}