Select Code to Download

{ # limit scope
    my @o;
...
        print " ";
    }
}

sub foo {
    my $window = "a b X20 c X5 d e X17 X12";
...
    print "Offsets: @o";
    print " ";
}