Убрать все строки длиннее определенного количества сиволов из txt

[Muhomor]

Необходимо удалить все строки длиннее 50 символов из txt файла. Как и чем это можно сделать подскажите?

[RedHead]

PHP код:

<?php
$fin = file('in.txt');
$fout = fopen('out.txt', 'w+');
foreach ($fin as $fline){
    if (strlen($fline) <= 50) fputs($fout,$fline);
    }
fclose ($fout);
?>

[Muhomor]

brus, RedHead - спасибо вам большое