Select Code to Download

#!/usr/bin/perl -w

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