#!/usr/bin/perl
use strict;
use warnings;
use locale;

my $str = "n\x{f6},test";
utf8::upgrade($str);

$str =~ s/^A.+,.*?B//;