I would like to use regex to insert specific characters in a regex expression?

Question

I'd like to be able to use regex in Perl to insert characters into words.

So that the word "TABLE" would become "T%A%B%L%E%"

Can I ask for the syntax for such a feat?

Many thanks

Answer 1

Break the string into characters then join them with what you want in between; also append that

my $res = ( join '%', split //, $string ) . '%';

A simple-minded way with regex

$string =~ s/(.)/$1%/g;

where with /r modifier you can preserve $string and return the changed string instead

my $res = $string =~ s/(.)/$1%/gr;

Answer 2

You can use this command,

echo TABLE|perl -pe 's/\w/$&%/g'

This outputs T%A%B%L%E%

OR (in case your data is contained in a file)

perl -pe 's/\w/$&%/g' test.pl

You may replace \\w with [a-zA-Z] if you just want to replace with alphabets as \\w matchs alphabets numbers and underscore.

Answer 3

You can use look-behind also

my $s = "table";

$s=~s/(?<=.)/%/g;

print $s;

If your version >5.14 you can use \\K

$s=~s/.\K/%/g;