my $file = "computers.txt";

print "-->>Paste computer name(s) here, press enter key, then ctrl-D keys<<--\n";

@computers = (<STDIN>);
 foreach (@computers) {
open FILE, "$file";
 while ($line=<FILE>){
if (my ($name) = $line=~/(@computers[\.\w]*)/){
    print "name\n";
else 
    print "no match found\n";
close FILE, "$file";
  }
 }
}