Select Code to Download

my @lines = split /\n/, $header, -1;

for my $magic_part ( substr $needed_line, 23 ) {
    die "Line is too short!"
...
    # double magic :)
    substr( $magic_part, 0, 5 ) = "sun4v";
}

my $line = "x" x 23 . "something";

...
__END__
9
~~xxxxxxxxxxxxxxxxxxxxxxxsun4v    ~~