Double quotes interpolate. . concatenates. length counts.

Goal

Build a kiosk line.

use strict;
use warnings;
use feature 'say';

my $city = "Nairobi";
say "Kiosk in $city";

use strict;
use warnings;
use feature 'say';

my $s = "Mombasa";
say length $s;
say substr($s, 0, 3);

use strict;
use warnings;
use feature 'say';

say uc "Nakuru";
my $t = "  Eldoret  ";
$t =~ s/^\s+|\s+$//g;
say $t;

use strict;
use warnings;
use feature 'say';

say "Nairobi" . " / " . "Kisumu";