for my $file ( qw(test.jpg hallo.html welt.bmp) ) {
    print "Ja: $file\n" if $file !~ /\.bmp\z/;
    print "Ja(2): $file\n" if $file =~ /.*\.(?!bmp)\z/;
}