Almost... This works:
($date) = $data =~ m/^.+\|(\d+)/;
Then as below. It needs the '+'.
Deane Rothenmaier
Systems Architect
Walgreens Corp.
847-914-5150
"Science is not only compatible with spirituality; it is a profound source
of spirituality." -- Carl Sagan
&quo
Almost... This works:
($date) = $data =~ m/^.+\|(\d+)/;
Then as below. It needs the '+'.
Deane Rothenmaier
Systems Architect
Walgreens Corp.
847-914-5150
"Science is not only compatible with spirituality; it is a profound source
of spirituality." -- Carl Sagan
&quo
This looks suspiciously like a registry value. The reg stores version numbers as a REG_DWORD (hex number), and I'll wager that if you looked up your Perl info in it, you'd see something like 0x05008005. "Somehow," this would decode to 5.008005, or maybe translate directly to 5.8.5. Anyway, the inf