perl -lane 'if ($F[0] =~ /export/) {$F[3]=$F[1]}; print "@F"' a.txt
@F -> nova linha
$_ -> linha antiga
F[0] -> primeira coluna
$" -> field separator ( perl -lane 'BEGIN{$"="\t"} ...... )
$/ -> record separator
$#F+1 -> número de colunas na linha