#!/usr/bin/perl
# Idiom #321 Access character in string, by index
 
# https://w...content-available-to-author-only...s.org/idiom/321/access-character-in-string-by-index
# 
 
use v5.10;
 
use open qw( :std :utf8 );
 
my $s;
my @chars;
 
use utf8;
 
say "Using utf8:";
$s = '01ā3€5';
say "the input string is: ", $s;
say "it's length is: ", length $s;
@chars = split //, $s;
foreach my $i (0..$#chars) {
    printf "the %dth character is %s\n", $i, substr $s, $i, 1;    
}
 
say '-' x 10;
 
no utf8;
$s = '01ā3€5';
say "Without using utf8:";
say "the input string is: ", $s;
say "it's length is: ", length $s;
@chars = split //, $s;
foreach my $i (0..$#chars) {
    printf "the %dth character is %s\n", $i, substr $s, $i, 1;    
}
 
 
 

IyEvdXNyL2Jpbi9wZXJsCiMgSWRpb20gIzMyMSBBY2Nlc3MgY2hhcmFjdGVyIGluIHN0cmluZywgYnkgaW5kZXgKCiMgaHR0cHM6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5zLm9yZy9pZGlvbS8zMjEvYWNjZXNzLWNoYXJhY3Rlci1pbi1zdHJpbmctYnktaW5kZXgKIyAKCnVzZSB2NS4xMDsKCnVzZSBvcGVuIHF3KCA6c3RkIDp1dGY4ICk7CgpteSAkczsKbXkgQGNoYXJzOwoKdXNlIHV0Zjg7CgpzYXkgIlVzaW5nIHV0Zjg6IjsKJHMgPSAnMDHEgTPigqw1JzsKc2F5ICJ0aGUgaW5wdXQgc3RyaW5nIGlzOiAiLCAkczsKc2F5ICJpdCdzIGxlbmd0aCBpczogIiwgbGVuZ3RoICRzOwpAY2hhcnMgPSBzcGxpdCAvLywgJHM7CmZvcmVhY2ggbXkgJGkgKDAuLiQjY2hhcnMpIHsKICAgIHByaW50ZiAidGhlICVkdGggY2hhcmFjdGVyIGlzICVzXG4iLCAkaSwgc3Vic3RyICRzLCAkaSwgMTsgICAgCn0KCnNheSAnLScgeCAxMDsKCm5vIHV0Zjg7CiRzID0gJzAxxIEz4oKsNSc7CnNheSAiV2l0aG91dCB1c2luZyB1dGY4OiI7CnNheSAidGhlIGlucHV0IHN0cmluZyBpczogIiwgJHM7CnNheSAiaXQncyBsZW5ndGggaXM6ICIsIGxlbmd0aCAkczsKQGNoYXJzID0gc3BsaXQgLy8sICRzOwpmb3JlYWNoIG15ICRpICgwLi4kI2NoYXJzKSB7CiAgICBwcmludGYgInRoZSAlZHRoIGNoYXJhY3RlciBpcyAlc1xuIiwgJGksIHN1YnN0ciAkcywgJGksIDE7ICAgIAp9CgoK