This actually works!

#!/usr/bin/perl
use warnings;
use strict;
print "1e-1" * "3", "\n";

This certainly does make my life easier with respect to HMMER and Blast E-values!