UNIX for Dummies Questions & Answers

#! /usr/bin/ksh
target=$1
sed -n -e '
${
b tester
}
s/\([*][*]*\)/\1/
t tester
H
b
:tester
H
x
s/\('${target}'\)/\1/
t print
s/.*//
h
b
:print
p
s/.*//
h'
exit 0

#!/usr/bin/perl

open(IN_FILE, "text.txt") || die "$!";

my $foundKeyWord   = 0;
my @statements;
my $keyWord = "world";

while ($inputLine = <IN_FILE>) {

  chomp($inputLine);
  $statements[$#statements+1] = $inputLine;

  if ($inputLine =~ m/$keyWord/ig) {
    $foundKeyWord = 1;
  };

  if ($inputLine =~ m/\*/g) {
    if ($foundKeyWord) {
      $foundKeyWord   = 0;

      for ($popCount = 1; $popCount < $#statements; $popCount++) {
        print  "$statements[$popCount]\n";
      };
    };
    splice(@statements,0,$#statements);
  };

};

Go to the store. 
Get milk. 
*************** 
Then go to the laundromat. 
Get the clothes. 

***************** 
Go the bookstore. 
Get a book on world travel. 

******************* 
Then come home. 

********************* 
end.

FreeBSD:auswipe:/home/auswipe/sample $ ./pullGroup.pl
Go the bookstore.
Get a book on world travel.

FreeBSD:auswipe:/home/auswipe/sample $