my @originalArray = qw{D F Y I N G W};

##</code><code>##

my $originalString = q{D F Y I N G W};

##</code><code>##

my $stringToSearch = join q{}, @originalArray;

##</code><code>##

(my $stringToSearch = $originalString) =~ s{\s+}{}g;

##</code><code>##

$stringToSearch =~ s{(SEKAR)}{<sometag>$1</sometag>}g;