#!/usr/bin/perl -w

use 5.034;

print "Input>";
chomp (my $input = <STDIN>);

my @transfer;
my $count=1;
my $line = 0;
for my $i (split // , $input){   
    my $number = ord($i);
    my @ii=();
    for (;;){
        push @ii, $number % 2;
        $number = int ($number / 2);
        if ($number<=1){ push @ii, "$number"; last; }
    }
    @ii=reverse(@ii);
    my $string = join "",@ii;
    my $pad = "0" x (8 - length($string)); 
    print "$pad$string ";
    $transfer[$line] .= "$pad$string ";
    if ($count % 7 == 0) { 
	print "\n";
	$transfer[$line] .= "\n";
	$line++;
	$count=1;
    }else{ $count++; }
}
print "\n";
$transfer[$line] .= "\n";

say "Translating to galactic...";
for (@transfer){
    tr/01/\-\|/;
    print ;
}

exit 2;

__END__