use strict; use warnings; #... sub x{ my $file=shift; my $y=''; open( my $in, '<', $file ) or die "Konnte $file nicht oeffnen! ($!)\n"; while (<$in>) { if (......){ $y=.... } close($in); return $y; } #... my $y=x($file); print ''; print ''; print ''; print ''; print $y; #< nicht '$y' print ''; print '';