my $power = '95%'; (my $escaped_power = $power) =~ s/%/%%/g; my $fmt = "sample: %-4s result: %5.2f power: $escaped_power\n"; for (0..$#data) { printf($fmt, $_, $data[$_]); }