Select Code to Download

while (<$fh>) {
    if ( (m/^alpha$/ .. eof($fh) ) > 1) {
        # everything between alpha and end of file
    }
}