#!/usr/bin/perl

use warnings;
use strict;
until (our $wwn eq "q")
{
print "Enter the wwn: ";
chomp ($wwn=<STDIN>);
my @wwn = unpack ("(a2)*", lc($wwn));
@wwn = join (":", @wwn);
print "@wwn\n";  
}