#!/usr/bin/perl
# w1.11.pl: Backtics are used to run commands in the system shell
# Let's save just the program names -- by substuting nada for everthing
# from the colon ":" to the end of the line "\n".

$hello= `grep "hello" *.pl`;
$hello=~ s/:.*?\n/\n/g;
print ("$hello");
__END__
