$ perl -le'use Data::Dumper; my $x = ( "y" | "Y" ); print Dumper $x'
$VAR1 = "y";