Help for this page
#!/usr/bin/perl -wT use strict; ... __END__ keyword1=word&keyword2=word&keyword3=word
my $i = ''; (my $string = $input) =~ s/(^|\+)/($i++&&'&')."keyword$i="/ge;