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

my %words = ( 
	ugly => 'ug**',
	anotherugly => 'anot*******',
);
my $txt = "ugly anotherugly";
$txt =~ s/$_/$words{$_}/g foreach %words;
print $txt;