Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
local $/ = "\n\n";
...
Or, this year the battle of Ocha according to others, won by Muirchert
+ach
Mac Erca and by Fergus Cerball son of Conall of Cremthann, and by Fiac
+hra
Lon son of the king of Dal nAraide.
  2. or download this
    my $str = join '', <DATA>;
%bits = $str =~ m/^(U[\d\.]+)\n\n(.*?)\n\n/msg;
...
print Dumper \%bits;
__DATA__
[snip]