my $text = "hallo";
&subroutine($text);
print;

sub subroutine { $\ = "$_[0] perl-community.de"; }