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

while (1) {
    print "Enter the wwn: ";
    chomp (my $name = lc <STDIN>);

    last if $name eq "q";
    print join (':', unpack ("(a2)*", $name)), "\n";
}