Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Divide according to multiple separators
#!usr/bin/perl
use warnings;
use strict;
my $string = "\nThis-is:a\@test-for,*you.";
my @words = split( /[-:@*]/, $string );
print "$_\n" foreach ( @words );