- my @f = map s{^[+][+][+]\s+
- ([a-z]+[0-9]*[ ] # user
- [A-Z][a-z][a-z][ ] # day
- [A-Z][a-z][a-z])\s+ # mon
- ([0-9]+)\s+ # date
- ([0-9][0-9]:[0-9][0-9]:[0-9][0-9][ ] # time
- [A-Z][A-Z][A-Z][ ] # zone
- [12][0-9][0-9][0-9])\s*$ # year
- }{sprintf "From %s %2d %s\n", $1, $2, $3}xe,
- <$in>;
+ my @f = <$in>;
+ map s{^[+][+][+]\s+
+ ([a-z]+[0-9]*[ ] # user
+ [A-Z][a-z][a-z][ ] # day
+ [A-Z][a-z][a-z])\s+ # mon
+ ([0-9]+)\s+ # date
+ ([0-9][0-9]:[0-9][0-9]:[0-9][0-9][ ] # time
+ [A-Z][A-Z][A-Z][ ] # zone
+ [12][0-9][0-9][0-9])\s*$ # year
+ }{sprintf "From %s %2d %s\n", $1, $2, $3}xe,
+ @f;