in reply to Re^2: Tips on how to perform this substitution?in thread Tips on how to perform this substitution?
That is way too complex :)
my $p = "--BBB----BB--B-------B--B--BBBB---B--";
my @x = qw( i o );
my $x = 0;
$p =~ y/B/M/;
$p =~ s/(-+)/$x[$x++%2]x length($1)/ge;
My fellow monks
Can't tell (I'm NSA/FBI/HS/...)
Others (explain your deviation)
Results (144 votes). Check out past polls.