while (<>) {
        chomp;  # avoid \n on last field
        @array = split(/:/);
        # ...
    }

##</code><code>##

chomp($cwd = `pwd`);
chomp($answer = <STDIN>);