Ok ... I can not get it to work ... So far I have:

#!/usr/bin/perl  
sub tab { 
  return q{ } x 4; 
}

my $host=shift(@ARGV);


foreach my $s (
  q(servicestatus {),
  tab . 'host_name='.$host,
  tab . 'plugin_output='./*./,
  tab . q(}) )
{
  print $s;
}
[download]

I can not get the string following the "plugin_output=" Sorry, I did not mentioned that , there are several lines beetween the "host_name" and the "plugin.." Any ideas ?