Source

date=ARGV.shift$s=''extract1=falseextract2=falsefinish=falseIO.foreach('src/news/index.html.wml')do|l|iffinishnil# do nothing.elsif(l=~/#{date}/)extract1=trueelsifextract2thenif(l=~/^<h2/)finish=trueelse$s+=l.gsub(/\$\(ROOT\)/,'http://perl-begin.org')endelsifextract1thenif(l=~/<\/h2/)extract2=trueendendendprint$s