#!/usr/bin/perl use strict; use warnings; while () { print /\b\s\d+\.\d+\b|\b\d+\.\d+\b(.*?)\bcache\b/; print "\n"; print /\b\s|\d+\.\d+\b(.*?)\bcache\b/; print "\n"; } __DATA__ 42.95 7712 15:20:05 08:30 23684 cache -s/usr/cachesys/mgr -cj -p374 JOB^CCJOB 42.18 7712 03:31:27 11:57:08 27747 cache -s/usr/cachesys/mgr -cj -p91 JOB^CCJOB #### 7712 15:20:05 08:30 23684 7712 15:20:05 08:30 23684 7712 03:31:27 11:57:08 27747 7712 03:31:27 11:57:08 27747