use v5.12;
use warnings;
use Devel::Peek;
use utf8;


my $str = "\x{FEFF}['what','ever']";

$str =~ s/^\x{feff}//;

Dump($str);