fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use Data::Dumper;
  4.  
  5. my $foo = 'one#two#three!four#five#six';
  6. my @parts = split /#|(?=!)|(?<=!)/, $foo;
  7. print Data::Dumper->Dump(\@parts);
Success #stdin #stdout 0s 21264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = 'one';
$VAR2 = 'two';
$VAR3 = 'three';
$VAR4 = '!';
$VAR5 = 'four';
$VAR6 = 'five';
$VAR7 = 'six';
https://ideone.com/6pA1wx
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!