readpipe command

@s=readpipe(ls);
for($i=0;$i<@s;$i++)
{
if ( $s[$i] =~ /sam/ )
{
print $s[$i];
}
}