#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 2;

my $src = "foo\x{feff}bar";

my $res = $src;
$res =~ s/\N{ZERO WIDTH NO-BREAK SPACE}//;
isnt ($res, $src, 'Output differs from src');
is ($res, 'foobar', 'BOM stripped');