in reply to repeated characters in regular expressions
Something like the following
$string=~s/(.){$n}/$1 x $m /eg;
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
In Section
Seekers of Perl Wisdom
in reply to repeated characters in regular expressions