#!c:\perl\bin\perl.exe -T     
  
use CGI qw(:standard);    
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);    
use strict;     
use warnings;     
  
print header;     
  
my %form;    
foreach my $p (param()) {    
    $form{$p} = param($p);    
}     
  
  
  
my $regexp = $form{"regexp"};    
$regexp =~ s/\s+$//g;    
$regexp =~ s/\\(\'|\"|\\)/$1/g;     
  
my $changeto = $form{"changeto"};    
$changeto =~ s/\s+$//g;    
$changeto =~ s/\\(\'|\"|\\)/$1/g;     
  
my $answer1 = $form{"content"};    
$answer1 =~ s/\s+$//g;    
$answer1 =~ s/$regexp/<span class=\\\"green\\\">$&<\/span>/g;     
  
print '{"div1":"'.$answer1.'"';     
  
my $answer2 = $form{"content"};    
$answer2 =~ s/\s+$//g;     
  
if($answer2)    
{    
 $answer2 =~ s/$regexp/<span class=\\\"red\\\">$changeto<\/span>/g;    
 print ',"div2":"'.$answer2.'"';    
}    
print "}";

   my %form = Vars;

 $regexp = '([a-z]) \\1';    
$content = 'acabxxbxbx axxb a a';    
$changeto = '$1';

   $answer2 =~ s/$regexp/<span class=\\\"red\\\">$changeto<\/span>/g;