A kiosk line into city and units.

Goal

Split Nairobi,12 and say both.

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

my $line = "Nairobi,12";
my ($city, $units) = split /,/, $line;
say $city;
say $units;

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

say join(" / ", "Nairobi", "Mombasa", "Kisumu");

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

my $text = "Nairobi,12\nMombasa,8";
foreach my $line (split /\n/, $text) {
  my ($city, $units) = split /,/, $line;
  say "$city $units";
}

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

say join(" · ", split /,/, "Nakuru,4");