Select Code to Download

foreach my $line ( split /\n/, $q ) {
    print "$line\n" if $line =~ /^Last 24 hours/;
}