Help for this page

Select Code to Download


  1. or download this
    use strict; 
use warnings; 
...
$result =~ s/([A-Z])'/!$1/g;
$result =~ s#([A-Z]+)# join( "&", map { $vars[ord($_)-ord("A")] } spli
+t //, $1 ) #ge;
print "$result\n";
  2. or download this
    use strict; 
use warnings; 
...
$result =~ s/([A-Z])'/!$1/g;
$result =~ s#([A-Z]+)# join( "&", map { $vars[ord($_)-ord("A")] } spli
+t //, $1 ) #ge;
print "$result\n";