Select Code to Download

#! perl -slw
use strict;
...
my $i = 0;
print "${ \++$i }: $1|$2" while $buf =~ m[$re_stream]g;