m// matches. $1 is the first capture.

Goal

Capture city from a kiosk line.

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

my $line = "Nairobi,12";
if ($line =~ /^(\w+),(\d+)$/) {
  say $1;
  say $2;
}

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

my $s = "Mombasa kiosk";
say $s =~ /bas/ ? "yes" : "no";

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

my $s = "Kisumu";
$s =~ s/u/U/g;
say $s;

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

my $text = "Nakuru 4 Eldoret 3";
while ($text =~ /(\w+)\s+(\d+)/g) {
  say "$1 $2";
}