#!/usr/bin/perl -w

use strict;

my $string = 'this is a test';

my @foo = split('(.)', $string);

print join('*',@foo);