Ahem, using @+ saves some strokes:

perl -aple '$" = ","; my $rx = join "", map qq((\Q$_\E)?), split //, $
+F[1]; chomp; $_ .= "  @{[@+[split /,/, $F[5]]]}" if $F[3] =~ $rx;'
[download]