http://qs321.pair.com?node_id=509299


in reply to grep question

Hi,

Try this....

$_= 'file1_system_051117123050.txt';
($_) = grep s/.*(\d{4})\d{4}\.txt/$1/, $_;
print $_;

Regards
Franklin
Don't put off till tomorrow, what you can do today.

In Section Seekers of Perl Wisdom