http://www.perlmonks.org?node_id=1011148


in reply to Removing digits from a string

If that date format is consistent, use substr!

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

[download]

Cheers,

JohnGG

In Section Seekers of Perl Wisdom