#!/usr/bin/perl
use warnings;
use strict;

print "Enter 
       a for lowercase and colons.
       b to do it the other way around.
       q to quit ";
my $choice = 0;
my $raw_wwn = 0;
my $ripe_wwn = 0;
my @array_wwn;
my @ripe_wwn;

chomp ($choice = <STDIN>);
if ($choice eq "a")
{
    until ( $raw_wwn eq "q")
        {
            print "Enter the wwn or q to quit: ";
            chomp ($raw_wwn=<STDIN>);
            if (length($raw_wwn)!=16 || $raw_wwn =~/[^0-9a-fA-F]/ )
                {
                   print "Invalid Length Or Incorrect Format\n";
                 
               
                 }

else
{
    my @array_wwn = unpack ("(a2)*", lc($raw_wwn));
    @ripe_wwn = join (":", @array_wwn);
    print "@ripe_wwn\n";  
} 
        }
}

elsif ($choice eq "b")
{ $raw_wwn =0;
    until ($raw_wwn eq "q")
    {
    
        print "Enter the wwn with : or q to quit: ";
        chomp ($raw_wwn=<STDIN>);
        if (length($raw_wwn)!=23||$raw_wwn=~/[^:a-fA-F0-9]/)
        {
            print "Invalid Length Or Incorrect Format\n";
        }
        else
        {
        $raw_wwn=~ s/://g;
        $ripe_wwn = $raw_wwn;
        print lc($ripe_wwn), "\n";
        }
    } 
}#closing for if choice =b
elsif ($choice eq "q")
{
    exit;
}