$b = 'aaa,bbb,ccc ddd; eee fff, kv.6 end';

@a = split(/[\s\,\.\;]+/, $b);
for ($i=0;$i<$#a-1;$i++) {
  $_ = $b;
  $k = $a[$i];
  s/^.*$k[\s\,\.\;]+//;
  push @c, $_;
}

push @a, @c, $b;

foreach (@a) {
print "$_\n";
}
[download]

aaa
bbb
ccc
ddd
eee
fff
kv
6
end
bbb,ccc ddd; eee fff, kv.6 end
ccc ddd; eee fff, kv.6 end
ddd; eee fff, kv.6 end
eee fff, kv.6 end
fff, kv.6 end
kv.6 end
6 end
aaa,bbb,ccc ddd; eee fff, kv.6 end
[download]