my $text = `cat $file`; If you're gonna do that, you might as well do
my $text = join '', <FileHandle->new($file)>
and still do it in perl. Frankly I don't know which is faster but I would choose to do it the second way because I think it would be faster.