#!/usr/bin/perl

use strict;

my @MessageLines = ('Message Line 1', 'Message Line 2', 'Message Line3', 'Prompt:     ');

$MessageLines[-1] =~ s/\s+|\s//;
my $last_char = substr( $MessageLines[-1], -1 );

print $last_char;