Perl system command using grep that return not found error

[iowaprogrammer]

When I run this code on a linux machine I have no problems; but when done on a Solaris 10 machine I receive the following message back.

Message:
sh: [A-F0-9]: not found
Usage: grep -hblcnsviw pattern file . . .


Code:

#!/usr/bin/perl
my $CHECK = 'mailq|grep ^[A-F0-9]|cut -c 42-80|sort |uniq -c|sort -n|tail > /tmp/qResults';


#create list of top sender emails in the queue
if ( system($CHECK) !=0) {
die "Error excuting $CHECK: error " .
"code " . ($?/256) . "\n";
}

Could someone offer some code to fix this problem.

 

[iowaprogrammer]

Rewrote the $CHECK variable as

my $CHECK = "mailq|grep '^[A-F0-9]'|cut -c 42-80|sort |uniq -c|sort -n|tail > /tmp/qResults";

This was based on a response given by user PHV.

If their is a simpler complete perl method though I would be interested learing of it to add to my my knowledge base