#!/usr/bin/perl
use strict;

# Script that transforms something into something else

my $inputForm = "";

while (<>) {
  chomp;
  if (/^(.*)\#(\d+)\-\>(\d+).*$/) {
    my $CLB=$1;
    my $first=$2;
    my $second=$3;
    if (($first eq $second) && ($CLB !~ m/.*(CLB|PUNCT).*/)) {
      #print "$_ is OK!\n";
      print "$_\n";
    }
  } else {
#   print "$_ XXXXX!\n";
  }
}





