$str =~ m/(.)\z/xms;
my $last_character = $1;