use strict;
use utf8;

warn q#warn: ϗblah頁#;
$SIG{__WARN__} = sub { print @_ };
warn q#warn: ϗblah頁#;