use Data::Dumper;
$Data::Dumper::Useqq = 1;

my $pat = "local_alphabet_string_that_I_copy_from_the_excel_cell_into_the_perl_script";
print(Dumper($pat));
print(Dumper($field));
if ($field=~/$pat/){$field=...;}