Select Code to Download

use Modern::Perl;
use utf8;

my $string = 'LÉGER';
print $string =~ /léger/i ? 'matched' : 'no match';