Select Code to Download

#!/usr/bin/perl

...
    my ( $limit, $data ) = @_;
    return grep $_ >= $limit, $data =~ /\((\d+)\s+?seconds\)/g;
}