Yes, but don't forget to use tell first, lest you spit
out the entire program via seek DATA,0,0 :
use strict;
my $pointer = tell DATA;
print get_data();
seek DATA,$pointer,0;
print get_data();
sub get_data { do {local $/;<DATA>} }
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|