Munging the data 

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

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

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