echo 'one & two &# three &#3 four &#38 five & six' | perl -pe 's/&(#(3(8(;\K)?)?)?)?//g'