perl -lan -e '@arr = split ("#",$F[-1]); $f_new= $arr[3]; $f_new =~ s/4/44/ig; print "$arr[0]#$arr[1]#$arr[2]#$f_new#$arr[4]" ' datei