my $productcode = "FCLA";

#then $productcode =~ /FCL/

print $producecode #should return "FCL" only