# ($", $/) = (' ', "\n");

$blessed = ref bless([], 'just::another::perl::hacker');
foreach $element ($blessed) {
    $element =~ s/:+/$"/g;
    print $element . $/;
}