#!/usr/bin/perl

print "enter a word:\n";
print join("*", split(/(?=\w)/,<STDIN>));