while(<FILE>) {        ## assign $_ to readline *FILE
my $message = <FILE>;  ## assign my $message to readline *FILE