primerno namiram nqkakyv red sys RegEx
if ($_ =~ /My fyrst name is: (.*)/) {
$pos = tell(FH);
}

sega tuka $pos koq tochno poziciq shte mi dade? Kak da polu4a poziciqta na $1 sys tell?

Gotin vypros :)

Mislia si edni gluposti i shte spodelia, no moje i da gresha !!!
Predpolagam 4e 4etesh ot file-a sys while ( <FILE> ), t.e. 4etesh red po red.
Ideiata mi e sys slurp, t.e. : my $fileContent = do { local $/; <FILE>};
Posle si pravish regex-a i v $` shte ti e vsi4ko koeto e predi match-a, pravish mu
length( $`) i vzemash kolko e dylyg string-a, t.e. kolko byte-a izrazhodva, posle
seek(FILE, 0, length($`)) se namestvash to4no kydeto e match-a.
Derzai, opitai i kaji dokolko e viarna ideiata mi :)
Makar 4e moje da si promenish samia $fileContent i posle da go zapishesh pak vyv
file-a, no neznam tova li e ideiata ti

Ами аз вече си реших проблема със Tie::File :) с него е много елементарно