Select Code to Download

while( $str =~ /(Function: .+?)\nInput: (.+?)\nOutput: (.+?)\n/gs ){
    print <<END;
...

END
}