-#!perl -n
+#!/usr/bin/perl -n
use 5.010; use strict; use warnings;
our %count;
our $mobile;
($_) = $1 =~ m{^/(\d+)};
continue;
}
- s/\d\d\.\d\K.*// or do {
- # major part only, except for ≥v9.6
- $_ ge '9.6' ? ($_ = '9.6') : (s/\..*//);
- };
+ s/^\d*\.\d\K.*//; # one significant digit
}
continue;
}
[ '525' => '2' ],
[ '528' => '3' ],
[ '531' => '3.2' ],
- [ '531.022' => '4.1' ],
+ [ '531.022' => '4' ],
[ '533' => '4.2' ],
[ '534' => '4x' ],
) : (