$_ = <DATA>; $_ = $` if /$/; @a = split //, $_;