<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">###########################
#    Match::Common.pm     #
#      Version 1.01       #
#    (c) Ed Egan 2009     # 
###########################

package Common;
use strict;
use warnings;
require Exporter;
our @ISA       = qw(Exporter);
our @EXPORT    = qw(CleanString);    
our @EXPORT_OK = qw(CleanString);
our $VERSION   = 0.01;


sub CleanString {
    my $self=shift;
    my $str=shift;
    $str=~s/-/ /g;
    $str=~s/\// /g;
    $str=~s/\\/ /g;
    $str=~s/\(/ /g;
    $str=~s/\)/ /g;
    $str=~s/^\s{1,}//g; $str=~s/\s{1,}$//g; $str=~s/\s{1,}/ /g;
    $str=~s/ /_/g;
    $str=~s/\W//g;
    $str=~s/_/ /g;
    $str=~s/^\s{1,}//g; $str=~s/\s{1,}$//g; $str=~s/\s{1,}/ /g;
    #$str=~s/-/__/g;
    #$str=~s/__/-/g;
    return $str;
}

1;
</pre></body></html>