$whatisit = system "whatis grep";
$whatisit =~ s/.*-//;
print $whatisit;

##</code><code>##

$x = "grep           (1)  - print lines matching a pattern";
$x =~ s/.*-//; 
print $x;