#!/usr/bin/perl
use strict;
use 5.010;
use warnings;

my @cpuinfo = `cat /proc/cpuinfo`;

foreach my $selected_cpuinfo (@cpuinfo) {

  chomp($selected_cpuinfo);

  if ($selected_cpuinfo =~ m/^processor/ || $selected_cpuinfo =~ m/^cpu/ ) {

    print "CPUINFO: $selected_cpuinfo\n";

  }

}