Round Trip Shape

use strict;
use warnings;

my $score = 3710;
my $name = "Kai";
my $encoded = join("|", $name, $score);
my ($decoded_name, $decoded_score) = split /\|/, $encoded;
my $same_score = $decoded_score == $score ? "yes" : "no";

print "encoded=$encoded\n";
print "decoded=$decoded_name\n";
print "score=$decoded_score\n";
print "same_score=$same_score\n";

use strict;
use warnings;

my $score = 3710;
my $name = "Kai";
my $encoded = join("|", $name, $score);
my ($decoded_name, $decoded_score) = split /\|/, $encoded;
my $same_score = $decoded_score == $score ? "yes" : "no";

print "encoded=$encoded\n";
print "decoded=$decoded_name\n";
print "score=$decoded_score\n";
print "same_score=$same_score\n";

use strict;
use warnings;

my $score = 3710;
my $name = "Kai";
my $encoded = join("|", $name, $score);
my ($decoded_name, $decoded_score) = split /\|/, $encoded;
my $same_score = $decoded_score == $score ? "yes" : "no";

print "encoded=$encoded\n";
print "decoded=$decoded_name\n";
print "score=$decoded_score\n";
print "same_score=$same_score\n";