chalow で簡単に Google Code Search (http://www.google.com/codesearch)
の検索結果へのリンクを作るプラグインです。

use URI::Escape;
...

### google code search
# usage: {{gcs('"next if"')}}
sub gcs {
    my ($s) = @_;
    my $q = URI::Escape::uri_escape($s);
    return qq(<a href="http://www.google.com/codesearch?q=$q">$s</a>);
}

URI::Escape がないときはこんな感じか：

my $q = $s;
$q =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
$q =~ s/\s/+/g;