my $content = '';
open($fh, '<', \$content) ..