while ( <$inFH> )
{
    m#cpuinfo\nvendor_id\s+:\s(.*?)\n#
       and print "CPU:\t$1" and last;
}