sub trim {
    my ( $tr ) = @_;
    return ( split /"/, $tr )[ 0 ];
    }