my $delimiter = shift @_;
my ( $before,$after ) = ( '', '' );
( $before, $value, $after ) = @$value if ( ref $value eq 'ARRAY' );
my $delimiter = shift @_;
my ( $before,$after ) = ( '', '' );
( $before, $value, $after ) = @$value if ( ref $value eq 'ARRAY' );