c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'CME.b/ESM8';
 print qq{'$1' '$2'} if $string =~ /^(CME\.b?)([^\/.])/;
"
'CME.' 'b'