#Positions are
#0 = Beginning of the file
#1 = Current position in the file
#2 = End of the file
open(FH,"db") or die "Can't open: $!\n";
while($line=){
if ($line =~ /LLLL/) {
print "--$line--\n";
}
}
seek(FH,0,0);
while() {
print if /Sss/;
}