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

my $rgb = shift;
$rgb = oct($rgb);
my $first = ( $rgb & 0xff0000 ) >> 16;
my $second = ( $rgb & 0x00ff00 ) >> 8;
my $third = ( $rgb & 0x0000ff );
print " ( $first , $second , $third )";