while( <IN> ) {
    chomp;
    my $title = substr( $_, rindex( $_, chr(15) ) + 1 );
  }