#!/usr/bin/perl
use strict;
use diagnostics;
use warnings;
my ($qnum,$qtext,$spectext,$p);
while (<DATA>){
if (^[0-9]\.|^[0-9][0-9]\.|^[0-9][A-Za-z]\.|^[0-9][0-9][A-Za-z]\.){
     $p = 1;
    ($qnum,$qtext) = split (/\./);
    print "L Q$qnum\nttlQ$qnum. $qtext\nn10base - total respondents\n";
    }
elsif (^[A-Z]|^[0-9]){
    ($spectext) = split (0);
     chomp $spectext;
     print "n01$spectext;c=c{Q$qnum}'$p'\n";
     $p++;
     }
else {
     print;
     }
}
----DATA----
1. Question text?

2 minutes or less
3 to 4 minutes
5 to 9 minutes
10 minutes or more

2. Question text?

Excellent
Very good
Good
Fair 
Poor

----Desired output------
L Q1
ttlQ1. Question text?
n10Base - Total Respondents
n012 minutes or less;c=c{Q1}'1'
n013-4 minutes;c=c{Q1}'2'
etc....