Select Code to Download

use strict;
use warnings;
...
my $z = qr{(?:[A-Z_]+:|$)};
my %hash = map { $_, ($string =~ m/$_:(.+?)\s*$z/)} @keys;
print Dumper(\%hash);

$VAR1 = {
          'PPS_ID' => ' ',
...
          'END_POINT' => 'ESME   ',
          'PRE_TRANS_OA' => '5.0.OTSDC  '
        };