Select Code to Download

#!/usr/bin/perl
while(<>) {
...
        #just to do something as an example...
        print "$_ \n";
}

#1st Example
a  #input (a)
...
ba #input and output
c  #input (c)
bc #output and output

a #input
a #output
...
b #continuing
a #output
b #without pressing enter again