Select Code to Download

#!usr/bin/perl -w
use strict;
...
{   
    print $line;
}

#!usr/bin/perl -w
use strict;
...
ABCDEGFHX
ABCDEGFH X
X    ABCDEGFH