#!/usr/bin/perl
#Las Animas County Colorado USA road numbers derived from their position in the address grid
#Input: lines that end in 12000E etc.
#Output:tack road number on back of input.
#County Road numbers, via "reverse engineering maps"
use strict;
use warnings "all";
while (<>) {
    if ( $. == 1 && !/\d/ ) { print; next; }    #Header
    chomp;
    m!([-\d]+)([NWSE]+)$! or die "no adr on line: $_";
    print;
    print "(CR ", f( $1, $2 ), ")";
    print "\n";
}

sub f {
    my ( $number, $letters ) = @_;
    my $sign = $letters =~ /[SW]/ ? -1 : 1;     #compute, even if all
                                                #positive in this county.
    my $NS   = $letters =~ /[NS]/;
    return sprintf "%d.%d", $sign * $number / 500 - !$NS, $number % 1000 / 100;
}