Help for this page

Select Code to Download

Select or download this

my $str = "begin here Time: 1041; foo Time: 917; bar Time: fred; Time:
+ 2313; end";

my @arr;
...
while ( $str =~ /Time: (\d+); /g ) {
    push @arr, $1;
}