Help for this page

Select Code to Download

Select or download this

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