storing two or more output in same variable in perl

open(FILE,"/etc/passwd");
while($line=<FILE>)
{
if($line=~/sshd|sam/)
{
$r.=$line;
}
}
close(FILE);
print $r;