#!/usr/local/bin/gawk -f
BEGIN {
peili = "(;);[;];{;};-\240;\240-;;;;;;;;;;;;;;;;;;;\227\240;\240\227"
if (length(sprintf("%c%c%c%c", 0, 16, 216, 128)) == 3) {
gsub(/\\240/, "\302\240", $0)
gsub(/\\227/, "\342\200\224", $0)
}
antalspeglar = split(peili, tkn, ";") / 2
IGNORECASE = 1
}
{
for (peili = 1; peili <= antalspeglar; peili++) {
if (split($0, slask, tkn[peili * 2 - 1]) != split($0, slask, tkn[peili * 2]) || index($0, (tkn[peili * 2 - 1] tkn[peili * 2])) || $0 ~ /""/) {
print (tkn[peili * 2 - 1] NR tkn[peili * 2] " " ($0))
}
}
if (split($0, slask, "\"") % 2 == 0 && length($0) > 0) {
print ("\"" NR "\"" " " ($0))
}
}