#!/usr/bin/perl -w

$binary_file = "binary.txt";
# Binary numbers separated by a return e.g.
# 01001
# 00011
# or CAPITAL letters separated by a return e.g.
# A
# B

print "Content-type: text/html\n\n";

open(DAT,"$binary_file");
@raw_data = <DAT>;
close(DAT);

$sep = "\n";
foreach $line (@raw_data)
{
# chop($line);

 ($binary_line)=split(/$sep/,$line);

%conv = ("A", "00001",
         "B", "00010",
         "C", "00011",
         "D", "00100",
         "E", "00101",
         "F", "00110",
         "G", "00111",
         "H", "01000",
         "I", "01001",
         "J", "01010",
         "K", "01011",
         "L", "01100",
         "M", "01101",
         "N", "01110",
         "O", "01111",
         "P", "10000",
         "Q", "10001",
         "R", "10010",
         "S", "10011",
         "T", "10100",
         "U", "10101",
         "V", "10110",
         "W", "10111",
         "X", "11000",
         "Y", "11001",
         "X", "11010");
         
%conv2 = ("00001", A,
         "00010", B,
         "00011", C,
         "00100", D,
         "00101", E,
         "00110", F,
         "00111", G,
         "01000", H,
         "01001", I,
         "01010", J,
         "01011", K,
         "01100", L,
         "01101", M,
         "01110", N,
         "01111", O,
         "10000", P,
         "10001", Q,
         "10010", R,
         "10011", S,
         "10100", T,
         "10101", U,
         "10110", V,
         "10111", W,
         "11000", X,
         "11001", Y,
         "11010", Z);

$converted_binary = $conv{"$binary_line"};
$converted_binary2 = $conv2{"$binary_line"};

$string_conv_binary_line = $string_conv_binary_line . $converted_binary  . " ";
$string_binary_line = $string_binary_line . $binary_line . " ";

$string_conv_binary_line2 = $string_conv_binary_line2 . $converted_binary2  . " ";
$string_binary_line2 = $string_binary_line2 . $binary_line2 . " ";

}

print "$string_conv_binary_line";
print "<BR><BR>$string_binary_line";

print "<BR><BR><BR><BR>";
print "$string_conv_binary_line2";
print "<BR><BR>$string_binary_line2";