Use a subroutine.

if condition1 {
    mysub();
} elsif condition2 {
    while innercondition1 {
        mysub();
    }
}
 
sub mysub {
    stmt1
    stmt2
    ...
    stmt30
}
[download]

-sauoq
"My two cents aren't worth a dime.";