gistfile1.pl

sub cb_build_file{
    my ($eh, %args) = @_;
    my $html = ${$args{Content}};
    my $blog = $args{Blog};

    ${$args{Content}} = replace_links($html, $blog);
};