http://qs321.pair.com?node_id=1047383


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