my @werte = qw(
        audio/basic
        image/bmp
        image/gif
        image/jpeg
        image/png
        image/tiff
        video/mpeg
        video/quicktime
    );

foreach $werte (@werte)
{
      if ($string eq $werte || $string =~ /^application\/(.*)/)
      {
            ...