PERL expression

[Jaheuk]

can someone give me the perl expression to always capture the code between BE and XX instead of substr function ?

it start always at pos 6 but length can vary, ending is also always with XXX to complete total length of 11

data a;

  length c023 $11. ;

  c023='400BE88XX';

  ba=substr(c023,6,-6+index(c023,'X'));

    run;

GreetZ,

Herman

[Haikuo]

data a;

  length c023 $11. ;

  c023='400BE88XX';

  ba=substr(c023,6,-6+index(c023,'X'));

  ba_prx=prxchange('s/(.*BE)(.*)(XX.*)/$2/o',-1,c023);

  run;

Haikuo