#!/usr/bin/perl
use strict;
use warnings;

my $cut_first = sub { substr($_[0], 1, length($_[0])) };
my (undef, $nr1, $nr2) = split(/ /, <DATA>);

print  &$cut_first($nr1) ."\n";
print  &$cut_first($nr2) ."\n";

__DATA__
T +53.7953465 +009.4032631 06-Jul-09 00:00:00 0