#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Getopt::Long;

GetOptions(
           'x=s' => \(my $x = 'X'),
           'y=s' => \(my $y = 'Y'),
);

say "$x|$y";