Hi,

I have orginal text file like this:

orange, 10, 20, 30.
apple banana, 20, 30, 40.

I wanted the the original text file to be rewritten as:

orange, 10
orange, 20
orange, 30
apple banana, 20
apple banana, 30
apple banana, 40

using perl and regular expression.
If any solutions or suggestions would be nice and very much appreciated.

many thanks

newbie.

my ( $fruit, @amount ) = split /\s*,\s*/, $_; 
for my $amount ( @amount ){ 
  print "$fruit, $amount\n"; 
}