Help for this page

Select Code to Download

Select or download this

perl -e '
   $string="X*X*X*X"; \
   $NEW=20;           \
   $string =~ s/(^|[\*])X([\*]|$)/${1}${NEW}${2}/g; \
   print "$string\n";'