open ( input , "../input" ) or die " .... ";
while (<input>)
{
my $code=$_ if /^CODE/

.
.
.
}