Yet another way:

#!/usr/bin/perl -w

use strict;

my $str = "hello, world!";
my $result = substr($str,length($str)-1,1);
print $result;
[download]

PS: Surprisingly, length($str)-- doesn't work for me, but length($str)-1 does.

Leonid Mamtchenkov aka TVSET