Select Code to Download

#!/usr/bin/perl
use strict;
...
# Rewind back to the start of the second line and obliterate it
seek $FH, $pos, 0;
print $FH "*" x (length($t)-length($/));

$ head -5 tmp.txt
You are on the edge of a breath-taking view. Far below you 
...
come surging out, cascading back down into the depths. The 
glowing rock fills the farthest reaches of the cavern with 
a blood-red glare, giving every- thing an eerie, macabre