Select Code to Download

#!/usr/bin/perl -w
use strict;
...
C line 2
C line 3
C line 4

A => ( A line 1 A line 2 A line 3 A line 4 )
B => ( B line 1 B line 2 B line 3 )
C => ( C line 1 C line 2 C line 3 C line 4 )