use URI::Escape qw(uri_escape);
my $data = do{ local $/ = undef; <DATA>};
print uri_escape $data; # eine Zeile

__DATA__

Das 
ist
ein 
mehrzeiliger 
Text