Select Code to Download

#!/usr/bin/perl

...
my $cmd = "------------- Hello World ------------";
my $result = `echo $cmd | grep '\-\-\-\-'`;
print $result . "\n";

grep: unknown option »----«