$productcode = 'FCL' if $productcode =~ m/FCL/;