my evil qw logout exit my img http 0day de logout img foreach my evil

my @evil = qw[logout exit];

my $c = '[img]http://0day.de/logout[/img]';

foreach my $e (@evil) {
    ($c =~ m,/$e\s*\[(?:/|\|)\w*\],)?die "ALERT :$e":1;
}