my $productcode = "FCLA";

if ($productcode =~ m/(FCL)/){
    print "$1\n";
} else {
    print "No FCL in product code!\n";
}