Select Code to Download

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

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

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

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

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