Frank Wright frank@lloyds.com 212-04567-98
Frank Lloyd Wright frank@wright.com 212-04567-98

##</code><code>##

print FILEHANDLENAME join(',',$name,$num,$email),"\n"; 

##</code><code>##

use strict; # This should go at the top of the file
use warnings; # So should this, to catch errors.

open FILE, "<storage.txt" or die $@; # report error on failure
while (<FILE>)
{
   my ($name,$email,$number) = split(/,/,$_);
   if ($name =~ /$name2/i)
   {
       print "$_\n";
   }
}