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

my $pos = tell DATA;
print while <DATA>;
seek DATA, $pos, 0;
print uc while <DATA>;
__DATA__
one
two
three
four