Wikipedia:Computer help desk/20050506 Triddle/code


 * 1) !/usr/bin/perl

use strict;

while(<>) { while(m/(\[\[.+?\]\])/g) { print "*$1\n"; } }