Help for this page

Select Code to Download

Select or download this

while (my $data = <DATA>) {
    $data =~ s/\s+/\|/ for 1..5;
    print $data;
}