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