# define Strings

$var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";

$var_names = "Larry,David,Roger,Ken,Michael,Tom";

​

# transform above strings into arrays.

@string = split('-', $var_string);

@names  = split(',', $var_names);

​

$string1 = join( '-', @string );

$string2 = join( ',', @names );

​

print "$string1\n";

print "$string2\n";

​