while( $line = <> )
{
  if( $line =~ m/^$token$/ )
  {
    print "match\n";
  }
  else
  {
    print "mismatch\n";
  }
}