test_ob_bmp("http://example.org/blah/blubb/TieFF.tiff");
test_ob_bmp("http://example.org/blah/blubb/BumP.bmp");
test_ob_bmp("http://example.org/blah/blubb/teggsd.txt");

sub test_ob_bmp {
  my $url = shift;
  if ($url !~ /\.bmp$/i) { # wenn kein Match auf bmp am Ende
    print "$url ist kein .bmp", "\n";
  }
}