-my $tip = '';
-my $tip_flag = 0;
-
-while (my $line = <$fh>) {
- if ($line !~ /^-- $/) {
- $tip .= $line;
- } else {
- if ( "$tip" =~ /$pattern/mi ) {
- $tip .= $line;
- print "$tip";
- $tip = '';
- $tip_flag = 1;
- } else {
- $tip = '';
+ my $tips_found = 0;
+ while (my $line = <$fh>) {
+ if ($line !~ /^-- $/) {
+ $tip .= $line;
+ } else {
+ $tips_found++;
+ if ( $tip =~ /$pattern/mi ) {
+ #$tip .= $line;
+
+ my $header = "Grml Tip Number $tips_found\n";
+ my $line = "-" x (length($header) -1 ) . "\n\n";
+
+ push @tips, $header . $line . $tip . "\n";
+ $tip = '';
+ } else {
+ $tip = '';
+ }
+ }