#!/usr/bin/perl

use strict;
use warnings;

my $string = 'This is my string.';
my $first_char = substr($string, 0, 1);
print "My first character is $first_char\n";
[download]