Perl Substr Outside Of String