#!/usr/bin/perl

use strict;
use warnings;

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