Re^3: Column Heading and Split Function

[McA]

One more reduction and we have to put this node into Obfuscation... ;-)

But while thinking it's interesting it deserves a ++

McA

[hdb]

<DATA>;    # remove header line
$/=undef;  # instead of File::Slurp
my %rates = split /\s+/, <DATA>;

print map { "$_ $rates{$_}\n" } keys %rates;

__DATA__
Patient Heart Rates
Molly   70
Glenn   69

[Not_a_Number]

$. > 1 and say join ' ', split while <DATA>;

[McA]

holy moly... ;-) (yes, yes, also a ++)

[Anonymous Monk]

<>; say <>;