#!/usr/bin/perl -w

use Safe;
$c = new Safe;

$c->permit_only( 
	qw(
		leaveeval
		const
	));

$result = $c->reval('"A" =~ m/a/i') ? 'YES' : 'NO';

die "$@\n" if $@;

print "\$result = $result\n";

__END__