Select Code to Download

print for map{ 
    m[(^\d+\s+(?:[\d\.]+\s+){3})(.+$)]
...
65/60**    8,993.0    2,947.2    6,045.7
49    526.8    264.7    262.2
and over

print for grep{
    m[^\d+\s]
} map{ 
    m[(^\d+\s+(?:[\d\.]+\s+){3})(.+$)]
} <DATA>;

print for sort { 
    local $^W; 
...
} map{ 
    m[(^\d+\s+(?:[\d\.]+\s+){3})(.+$)]
} <DATA>;

#! perl -slw
use strict;
...

print "Age\tMale\tFemale";
printf for @trimmed;

my( $age90line ) = grep{ m[90\s+and\s+over] } @lines;
$age90line = join "\t", $age90line =~ m[(90\s+and\s+over)\s+\S+\s+(\S+
+)\s+(\S+)];

## And strip out the combined total and add "Age end"
my @trimmed = map{
    s[(^\d+\s+)[\d\.]+\s+][$1\t$1];
    $_;
} @sorted;

print "Age start\tAge end\tMale\tFemale";
print for @trimmed, $age90line;

P:\test>501023-2
Age start       Age end Male    Female
...
88      88    15.2    50.9
89      89    11.6    40.7
90 and over     31.8    131.3

print "Age start\tAge end\tMale\tFemale";
printf "%s\t\t%s\t\t%s\t\t%s\n", 
    m[(\S+)\s*(\S+)\s+(\S+)\s+(\S+) 
    for @trimmed, $age90line;