Select Code to Download

#!/usr/bin/perl
use strict;
...
exit 0;

-----this output i need in a file------
Starting EXPECT pattern matching...
...
handle id(9): list of patterns:
  #1: -re `[\r\n]?[^\r\n]+[%#>$] $'