my $productcode = "FCLA";

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

##</code><code>##

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