Select Code to Download

if ( grep fc $str eq fc $_, keys %data ) { # case-insensitive exists

$data{fc$_} = delete $data{$_} for keys %data;