my $name = 'Jim';
my $name_len = length $name;
while (<STDIN>) {
   if (substr ($_, 0, $name_len) eq $name) {
      print "Jim exists!\n";
      last;
   }
}