Specifying an output encoding 

use 5.020;
use strict;
use warnings;
use autodie;
use utf8;

my $product_file = 'product-list.txt';

open my $fh, '<', $product_file;

binmode(STDOUT, ':encoding(UTF-8)');

while ( <$fh> ) {
    s/GBP/£/;
    s/EUR/€/;
    s/USD/\$/;
    print;
}