Something like this?

my $str = 'Thu Oct 18 21:26:36 2007: Time for all triggers in report p
+eriod (60s): 1.330981s';
my ($ret_val) = $str =~ /(?<=period )\((\d+)s\):/;
exit $ret_val;
[download]