1  #!/usr/bin/env perl
   2  
   3  $prog2 = <<'EOF';
   4  #!/usr/bin/env perl
   5  
   6  $prog3 = <<'%s';
   7  %s%s
   8  
   9  $r = $prog3;
  10  $r =~ s/(2|3)/5 - $1/ge;
  11  printf $prog3, 'EOF', $r, 'EOF';
  12  EOF
  13  
  14  $r = $prog2;
  15  $r =~ s/(3|2)/5 - $1/ge;
  16  printf $prog2, 'EOF', $r, 'EOF';