Hi,
you should change the inner if to:

if ($record->[1] =~ /$data->[0]/) {
    $record->[1] = join ("_", $data->[3], $data->[1]);
    last;
}
[download]

MP