http://qs1969.pair.com?node_id=710042


in reply to reg-exp problem

#!/usr/bin/perl -w use strict; use Data::Dumper; $_ = "{Just} another, Perl*hacker."; my @rray = split /[{},*]/, $_; print Dumper( \@rray);
------------------------------------
$VAR1 = [ '', 'Just', ' another', ' Perl', 'hacker.' ];
Allan Dystrup