[PHP] Kasowanie znaków w pliki po 7 znaku Opcje

[magico]

Mam plik potrzebuje wykasować z każdego wiersza wszystko po 7 znaku.

Mam plik z danymi:

[XML] pobierz, plaintext 
3221367	1234567899990-2014-12 14:32:25	
3221368	1234567899990-2014-12 14:33:09	
3221372	1234567899990-2014-12 14:34:11	
3221377	1234567899990-2014-12 14:36:30	
3221378	1234567899990-2014-12 14:37:02
[XML] pobierz, plaintext 

Chodzi mi o taki wynik:

[XML] pobierz, plaintext 
3221367
3221368
3221372
3221377
3221378
[XML] pobierz, plaintext 

Kombinowałem z funkcją substr ale nie wychodzi mi tak jak bym chciał.
Proszę po pomoc

[magico]

Dzięki za ukierunkowanie działa (IMG:style_emoticons/default/smile.gif)

Zrobiłem tak:

[PHP] pobierz, plaintext 
<?php
 
$txt=file('plik.csv');
foreach($txt as $line)
$new.=substr($line, 0, 7). "\n";
file_put_contents('plik.csv', $new);
 
?>
[PHP] pobierz, plaintext