#!/usr/bin/perl -p -i.bak -l
BEGIN {
    @ARGV = 'personel.txt';
    $newdigit="+615";
    $id="0001";
}
if(/^$id\|/o) {
    my($id, $name, $family, $oldphone) = split /\|/;
    $newphone = $newdigit .$oldphone;
    $_ = join ("|", $id, $name, $family, $newphone);
}