#!/usr/bin/perl

#
# .bitchxrc:
#
# /alias xs4all exec -out ~/.BitchX/xs4all.pl
#

my $item = shift;

$item =~ m/(..)(..)(..)(..)/;

print "$item is " . (hex("0x" . $1)) . "." .
                    (hex("0x" . $2)) . "." .
                    (hex("0x" . $3)) . "." .
                    (hex("0x" . $4)) . "\n";