use strict;
use warnings;

my $char = "0x388c818ca8b9251b393131c08a736a67ccb19297";
$char =~ s/^([0-9a-fx]{6}).+([0-9a-f]{6})$/$1 \.\.\. $2/;

print $char; # 0x388c ... b19297