Fork me on GitHub

perl delimiters

368 bytes of Perl by mark

12345678910111213141516171819
$x = s/pattern/replace/egiomsx
$x = tr/pattern/replace/e
$x = y/pattern/replace/g


$x = s{pattern}{replace}i
$x = s<pattern>{replace}o

$string =~ m/match/m
$string =~ m,match,s
$string =~ m!match!x
$string =~ m#match#ig
$string =~ m(m()a()t()c()h)ox

@y = qw/string/
@y = qw/string1 string2/
@y = qw[string1 string2 string3]
@y = qw<string1 string2 string3 string4>