#while ( <> ) {
# chomp;
# s/^\s+//go;
# s/\s+$//go;
#
# next if m/^$/ or m/^#/;
#
# if ( s/\\$//o ) {
# $state = READING;
# } else {
# $state = EOL;
# }
#
# $line .= $_;
#
# if ( $state == READING ) {
# next;
# } else {
# push @questions, $line;
# $line = '';
# }
#}
^
'------ всё выше как я понял , для того что-бы вопросы положить в массив @questions
Мой вариант
{ local $/ = undef;
while ( <> ) {
push @questions , split "\n" => ;
}
}