removed weird PERL regex thing