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

#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" => ;
    }
}