my $string = qq~HHH9114
EEE8888
LLL4258
PPP8525~;
        
$string =~ s/\s+/|/g;

print "||$string||\n";