use strict; use warnings; use File::Slurp; my $string = read_file 'QBF.txt'; print "\n"; print $string . "\n"; print "\n";