[1] 意外なことに、 substr ($s, 0, 6) = '' if substr ($s, 0, 6) eq 'FOOBAR' よりも $s =~ s/^FOOBAR// の方が随分メモリー使用量が少ない。 まあ何か他の条件に依存して変わることもあるかもしれないけど。