- or download this
s/regex/string/
- or download this
my $line = 'abbc';
$line =~ s/(.)\1/XX/g;
...
--output:--
aXXc
- or download this
my $line = 'abbc';
$line =~ s/(.)/X$1X/g;
...
--output:--
XaXXbXXbXXcX
- or download this
my $line = 'abbc';
$line =~ s/(.)/$1$1/g;
...
--output:--
aabbbbcc
- or download this
$str = aa;
$str =~ /(a)$1/;
print "$&";