use constant NEWLINE => "\n"; print $foobar . NEWLINE;