my $endung = '.var';
my $dateiname = 'Otto.var'

if ( $dateiname =~ m/\.var/)
{ print "Datei gefunden"; }