$str =~ m/\A(.)/xms;
my $first_character = $1;