Help for this page

Select Code to Download


  1. or download this
    s/regex/string/
  2. or download this
    my $line = 'abbc';
$line =~ s/(.)\1/XX/g;
...

--output:--
aXXc
  3. or download this
    my $line = 'abbc';
$line =~ s/(.)/X$1X/g;
...

--output:--
XaXXbXXbXXcX
  4. or download this
    my $line = 'abbc';
$line =~ s/(.)/$1$1/g;
...

--output:--
aabbbbcc
  5. or download this
    $str = aa;
$str =~ /(a)$1/;
print "$&";