$productcode = $productcode =~ m/^FCL/ ? : 'FCL' : "No, sorry";