#!/usr/bin/perl -w use strict; use vars qw($usage $in_cs @in_cs $in_cs_re $out_cs @out_cs $scriptdir ); $usage=<<"EOF"; Usage: $0