Доброе время суток, Tundravarg

вот так:

my $str = q{very_very_long_file.jpg};
unless($str =~ /\.(png|jpg)$/i){
print "файл не графический";
}

можно сделать ещё интереснее - развитая тема :-)

пишем более универсальный вариант

смотри аттач

с уважением, удачи


Приложение:
my @ext = (‘png‘, ‘jpg‘); # здесь описываем все расширения, которые видеть не хотимmy $str = q{very_very_long_file.jpg};my $yes=1;for my $t(@ext){$yes=0 if($str =~/\.($t)$/i);}print "файл прошёл" if($yes);

Здравствуйте, Tundravarg!
Попробуйте так:
$str =~ /*(?!(.png))$/;
и $str =~ /*(?!(.jpg)$/;