my $var = "blah".substr($var, 0, 2);

##</code><code>##

my $temp = "USLetter:Plain:white:75";
my %media = (        
  bond    => $temp,    
  letter  => $temp,    
  plain   => $temp
);