..... ..... ....  ....  ....
..... ..... ....  ....  ....
total 1234  1234  5678  7894

##</code><code>##

#!/usr/local/bin/perl -w
my($currentLine, $name, $infilename);
chomp ($infilename = "temp1.pl");
    if ($ currentLine =~ /^ \$name:/) {
        print $currentLine;
}