Regular Expression

  VAR=';[^_]+_'
  if [[ $A =~ $VAR ]]; then
    OUT=`echo $A | perl -pe 's|(.+);.+(_[^_]+)$|\1\2|g'`;
  elif [[ $A =~ ';' ]]; then
    OUT=`echo $A | perl -pe 's|;|_|g'`;
  else
    OUT=$A
  fi