#!/usr/bin/perl -w

use strict;

my $string = "This is a string";

my $char = (unpack("a", reverse $string))[0];
print $char;