Select Code to Download

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

$string =~ /^..a/