use warnings;
use strict;

while (<DATA>)
{
   chomp;
   my ($one,$two,$three,$four,$five) = split;
   print "$five\n";
}


__END__
1 222 ssss 1111 fgfg
2 333 ssse 2222 dshg
3 444 ssws 3333 sjsh
4 555 wwsw 4444 skss
[download]