Se prendo in ingresso una stringa

chomp($stringa=<STDIN>);
ed inserisco questo:

ciao sono alberto ciao
poi con una regexp voglio modificare la stringa in

sono alberto
io avevo provato con

chomp($stringa=<STDIN>);
s/[^ciao]/$stringa/ig;
print $stringa;
però non funziona :master: