#!/opt/ucl/bin/perl

# Extracts radius list from the datasynth Monte-Carlo simulation
# output.

while(<>) {

    if(/cylinder.*radius = ([\dE\-\.]+)$/) {
	print("$1\n");
    }

}