#!/opt/ucl/bin/perl # Extracts radius list from the datasynth Monte-Carlo simulation # output. while(<>) { if(/cylinder.*radius = ([\dE\-\.]+)$/) { print("$1\n"); } }