use strict; use warnings; my ($handle, $text, $insert); open($handle, 'template.txt'); read($handle, $text, 10000); close($handle); $insert = index($text, ''); print substr($text, 0, $insert); print 'My inserted data goes here!'; print substr($text, $insert);