Select Code to Download

$ perl -E '
> open my $fa, q{<}, \ <<EOF1 or die $!;
...
>    map { chomp; $_ } scalar <$fa>, scalar <$fb>;'
file A line 1,file B line 1
$

$ perl -Mstrict -Mwarnings -E '
> open my $fi, q{<}, \ <<EOFi or die $!;
...
File I Line 1,File A Line 1,File B Line 1,File C Line 1
File I Line 2,File A Line 2,File B Line 2,File C Line 2
File I line 3,--eof--,File B Line 3,File C Line 3