#!/usr/bin/perl
# w1.12.pl: Backtics are used to run commands in the system shell
# $_ is the default for m/// and s/// when no $var=~ assignment is made

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