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;
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (336 votes). Check out past polls.