WARNING "The Code Book" spoiler ahead

I'm sure quite a few of you guys have read/heard of Simon Singh's book The Code Book (if not it's well worth checking out).

Well here is my script that I used to crack the second puzzle in the book. It's nothing very elaborate but just in case anyone might be interested.

The code is 

MHILY  LZA  ZBHL  XBPZXBL  MVYABUHL  HWWPBZ  JSHBKPBZ  JHLJBZ
KPJABT  HYJHUBT  LZA  ULBAYVU

[download]
and it's a Caesar Shift code
Here's the script 
use strict;

open(CODE,"code2.txt");
my @code=<CODE>;
close(CODE);

my @alphabet = ("A".."Z");
my (%crypt);

foreach my $try_number (0 .. 26){
  print STDOUT "\n---- Shift of $try_number :\n";
  foreach my $letter (A .. Z){
    my $index= ($try_number++)%26;
    $crypt{$letter} = $alphabet[$index];
  }
  foreach my $code_line (@code){
    foreach my $letter_or_space (split(//,$code_line)){
      if ($letter_or_space =~/\s+/){
    #Got a space
    print STDOUT " ";
      }else{
    print STDOUT $crypt{$letter_or_space};
      }
    }
  }
}
print STDOUT "\n";

[download]
I also have a script for the first puzzle also if anyone is interested.

PS The script produces all the options you have to spot the correct solution. It should be pretty obvious :-)

In reply to Caesar Shift Solution by diarmuid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.