language: Perl (perl 5.16.2)
date: 574 days 17 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9

#!/usr/bin/perl
use strict;
use warnings;
 
while (<>) {
  s/\G([^*\\]*(?:\\.[^*\\]*)*)\*/$1%/g;
  print;
}