$ perl -E '
> $filename = q{20130101Customer100.imp};
> say $filename;
> substr $filename, 0, 8, q{};
> say $filename;'
20130101Customer100.imp
Customer100.imp
$