#!/usr/athena/bin/perl

require "lib.pl";
$scs = $lopip'special_chars;
$ic = $lopip'important_char;

while (<>) {
    s/^([$scs]*)[$ic]([$scs]*)/$1$2/;
    print;
}