use strict;
use warnings;

my $string = 'That string is funny!';

if ( substr( $string, 2, 1 ) eq 'a' ) {
	print 'The third character in $string is an "a".';
}