my $suffix = $file =~ m/\.(.+)$/;