#!/usr/bin/perl -wT
use strict;

my $input = "word+word+word";
my $i=1;
my $string = join '&',
             map {"keyword".$i++."=$_"}
             split /\+/, $input;
print "$string\n";

__END__
keyword1=word&keyword2=word&keyword3=word


##</code><code>##

my $i = '';
(my $string = $input) =~ s/(^|\+)/($i++&&'&')."keyword$i="/ge;