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