String Perl

  1. Home
  2. Perl
  3. String
  4. Keeping the separators by having them in parentheses
#!usr/bin/perl
use warnings;
use strict;
my $string = "\nThis-is:a\@test-for,*you.";
$string = join( ',', split( /([-:@*])/, $string ));
print "$string\n\n";