Help for this page

Select Code to Download

Select or download this

my $productcode = "FCLA";

...
} else {
    print "No FCL in product code!\n";
}

Select or download this
$productcode = 'FCL' if $productcode =~ m/FCL/;