Hm. I'm not sure that your justification stands up to scrutiny, but if you must, how about:
my $utfData = "\x..."; open UTF, '<:encoding(utf8)', \$utfData or die 'Must be pre-5,8'; die 'Bad stuff happened' unless <UTF> eq 'Whatever you expect';
In reply to Re^3: an ever-available file for opening
by BrowserUk
in thread an ever-available file for opening
by Sixtease
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |