c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'abc\ZD+A-G\HJxyz';
 print qq{'$s'};
 ;;
 $s =~ m{ ([A\-Z\+GD]+) }xms;
 print qq{'$1'};
"
'abc\ZD+A-G\HJxyz'
'ZD+A-G'