use Unicode::Normalize qw( NFC );

$s1 = NFC($s1);
$s2 = NFC($s2);
$s1 =~ /^\Q$s2\E\z/i