Select Code to Download

$ perl -e '
> use strict;
...
a 123 ; b 127 => 4
a 125 ; b 131 => 6
a 129 ; b 133 => 4

use strict;
use warnings;
...
b 131
a 132
b 133

$ perl iter_pairs.pl
a 123 ; b 127 => 4
a 125 ; b 131 => 6
a 129 ; b 133 => 4

use strict;
...
__DATA__
a 123
...