in reply to Golf: Replacing part of a string with "*"

29, counting the semicolon. :-) 

my $string = '5424123412345678';
substr($string,0,-4)=~y//*/c;
print $string;

[download]

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

In Section Seekers of Perl Wisdom