in reply to String extraction

#!/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";