# Help understanding Perl code.

**URL:** <https://community.unix.com/t/help-understanding-perl-code/310772>\
**Category:** Shell Programming and Scripting\
**Created:** [May 24, 2012, 10:02am UTC](https://community.unix.com/t/help-understanding-perl-code/310772 "2012-05-24T10:02:10Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![RedSpyder](https://community.unix.com/letter_avatar/redspyder/32/6_449c533f586939b6e5f246632a46421f.png) [@RedSpyder](https://community.unix.com/u/RedSpyder)\
**Post date:** [May 24, 2012, 10:02am UTC](https://community.unix.com/t/help-understanding-perl-code/310772/1 "2012-05-24T10:02:10Z")

</div>

Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean:

```nohighlight
$files_lim =~ (/^\d*$/)

```

```nohighlight
$files_lim =~ (/^\d*h$/)

```

```nohighlight
$files_age =~ s/h//

```

The code where this was pulled out just tries to erase a file thats more than 10 days old.

Thanks in advance.