my $productcode = "FCLA";

$productcode =~ s/.*FCL.*/FCL/;

print $producecode