#!/usr/bin/perl -l

use strict;
use warnings;

push @_, $_ xor print $_ for 'a' .. 'b';
print @_;