while chomp go go next if or if state READING else state EOL line if s

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#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" => ;
}
}