Das ist eine Zuweisung. Es wird der Variable "$file" der Inhalt des Barwords ".dat" zugewiesen.
Bei "use strict" müsste das eigentlich auffliegen.
Ein Stringvergleich erfolgt mit "eq" allso "if($feil eq '.dat')"