Как заменить строку в существующем файле на Perl?

Я хочу заменить слово "синий" на "красный" во всех текстовых файлах с именами 1_classification.dat, 2_classification.dat и так далее. Я хочу отредактировать тот же файл, поэтому попробовал этот код, но он не работает. Где я ошибаюсь?

@files=glob("*_classification.dat");
foreach my $file (@files)
{
    open(IN,$file) or die $!;
    <IN>;
    while(<IN>)
    {
       $_='~s/blue/red/g';
       print IN $file;
    }

   close(IN)
}