Select Code to Download

sed -e '10,15p;4p;s/.*//' file | awk '!/^$/{print $0}' somefile

#!/usr/bin/perl -n
my $usage;
...
    }
}
__DATA__

: r ! l 11-13,42,125-234 somefile

: r ! l 1234-1500