Code:
#!/usr/bin/perl use strict;
my @blah = (
'zzz|z|222| | | | |z| |z|z|PPP!.!X!',
'ds| | |e|ee| | |eee|KLMN!.!X!',
'w|www|wwwwww|qq|o2kd!.!X!',
);
/^.+\|(.+)$/ && print "$1\n" foreach @blah;
--mark
Subject | Author | Views | Date |
---|---|---|---|
reg exp | Pasha1 | 2022 | Apr 18, 2000, 8:33 PM |
Re: reg exp | Mark Badolato | 1933 | Apr 18, 2000, 8:47 PM |