#!/usr/bin/perl -w
use v5.16;
my $d = "171309-643603";
my ($a, $b) = split "-", $d;
my $p1 = 0;
my $p2 = 0;
PASS: for ($a..$b) {
my @ds = split('');
if (join('',@ds) eq join('',sort(@ds))) {
$p1++ if /(\d)\1/;
while (/(\d)\1+/g) { $p2++, next PASS if length($&) == 2; }
}
}
say $p1; # 1625
say $p2; # 1111