#!/usr/bin/perl
#
#   The Doom of the Noldor / The Prophecy of the North
#   J. R. R. Tolkien - Quenta Silmarillion
#
#   Tears unnumbered ye shall shed;
#   and the Valar will fence Valinor against you,
#   and shut you out,
#   so that not even the echo of your lamentation
#   shall pass over the mountains.
#
#   On the House of Feanor the wrath of the Valar lieth
#   from the West unto the uttermost East,
#   and upon all that will follow them
#   it shall be laid also.
#

$_= 'The Doom of the Noldor' or 'The Prophecy of the North';

while( /Doom/ ) {

    shed("tears ");

    do {
       $Valar{'fence_of_Valinor'}++ and $shut_out;
    } until not( $echo_of_lamentation > $mountains );

    for( $West..$uttermost_East ) {
        map{$_ = $Valar{'wrath'}} (@House_of_Feanor, @followers);
    }

}

sub shed{print shift}
[download]