Select Code to Download

$content=~s/\[google:\/\/([^|\]]+)\|([^\]]+)\]/&google('G',$1,$2)/eig;
+ # [google://keyword(s)|text]
$content=~s/\[google:\/\/([^|\]]+)\]/&google('G',$1)/eig;             
+ # [google://keyword(s)]
$content=~s/\[lucky:\/\/([^|\]]+)\|([^\]]+)\]/&google('L',$1,$2)/eig; 
+ # [lucky://keyword(s)|text]
$content=~s/\[lucky:\/\/([^|\]]+)\]/&google('L',$1)/eig;              
+ # [lucky://keyword(s)]

sub google
{ # [google://] and [lucky://]
...
    }
return $g;
}