Help for this page

Select Code to Download

Select or download this
```
#! perl -slw
use strict;
...
12:55 E16
```

Select or download this

sub by_hour{
if ($a =~ /(\d\d):(\d\d)/){
...
    }
}
}