#!/usr/bin/env perl -a 

use strict;
use warnings;
use feature qw (say);

my $var = pop @F;

say $var;

__END__

karls-mac-mini:monks karl$ echo foo bar | ./1118114.pl
bar