#!/usr/bin/perl -w
        $newdigit="+615";
        $id="0001";
	$line = `grep $id personel.txt`;
	($id, $name, $family, $oldphone)=split(/\|/, $line);
	$newphone = $newdigit .$oldphone;
	$NewLine= join ("|",$id, $name, $family, $newphone);
	open(PERS,">>personel.txt");
	while (<PERS>) {
	s/$line/$NewLine/;
	}