my $result = `findstr $phone_num file1 file2 file3`;
if ( $result ) {
  print "DO NOT CALL $phone_num\n";
}
else {
  print "You can annoy $phone_num with your gratuitous cold calling\n";
}