gistfile1.txt

my @sources;
my $in_section;
while (my $line = <$fh>) {
    $in_section++ if $line =~ /^# You can add/;
    next unless $in_section;
    $line =~ /^source (.+)/ and push @sources, $1;
}