#!/usr/bin/perl -w

use strict;

my $info   = "I am a brown icecube";
my $chars  = 'a ';

my $known  = $info;
$known =~ s/[^$chars]/\*/g;

print "$info\n";
print "$known\n";