test_ob_bmp("http://example.org/blah/");

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