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

END
}