Help for this page
Select Code to Download
Select
or
download this
@fields = /([^|]*)\|?/g;
Select
or
download this
my ( $f1, $f2, $f3, $f4, @v ) = /([^|]*)\|?/g;