ファイルtext.txtの最後の行を変数$lastにいれるには
open(F,"text.txt");
while(<F>){
$last=$&;
}
close();
しかないですか？text.txtは行数が多いので時間がかかります。
最後の行から逆に一行ずつ読み込む関数というのはありますか？