Shell Programming and Scripting

 
 
Becky Alcorn
25
female
Melbourne
i
|
a
m
|
g
r
e
a
t
|
p
e
r
s
o
n

 
Becky Alcorn
25
female
Melbourne
i
am
great
person

 
 
  #!/usr/bin/perl
  use strict;
  use warnings;
  my $data = 'Becky Alcorn,25,female,Melbourne' ;
my $data1 = 'i|am|great|person';

  my @values = split(',', $data);
  foreach my $val (@values) {
    print "$val\n";
  }

my @words = split ('|', $data1);
foreach my $val1 (@words) {
print "$val1\n";
}
  exit 0;

my @words = split ('\|', $data1);