language: Perl (perl 5.16.2)
date: 681 days 3 hours ago
link:
visibility: public
1
2
3
4
my $txt = 'a $2 question for $1';
print "BEFORE: $txt\n";
$txt =~ s/\$/%26/g;
print "AFTER: $txt\n";