#!perl -w use strict; print "Do you like deep perlish questions at the voting booth?\n"; my $input = <>; chomp $input; if ($input eq 'y') { while ( ) { chomp; my @SelfActualization = split /\|/; print join(' ', @SelfActualization), "\n"; } }else{ if ($input eq 'n'){ print "Non of the above for me. MU."; } } __END__ You have no hangups.|You love Psychiatrists.|You have strong Ego.| High Self esteem.|Isn't life just great.