Select Code to Download

use strict;

...
__DATA__
THis is the dawning of the age of Aquarius.
Good morning Starshine, the earth says hello. The end.

my ($extracted_value) = $extract =~/^\( (\d.+) \)$/;
# Will be undef if nothing found.