inter forum

next if $line  =~ /static/  ;
next if $line !~ /dynamic/ ;

next if $line ~~ /static/  ;
next if $line !~~ /dynamic/ ;

$line =~ s/abc/123/;

$line ~~ s/abc/123/;

/(.+)/ and print $1;

/(.+)/ and print $0;

next if $line =~ /static/i;

next if $line ~~ m:i/static/;

next if $line =~ m/[aeiou]/;
next if $line =~ m/[^abc]/;

next if $line ~~ m/<[aeiou]>/;
next if $line ~~ m/<-[abc]>/;

next if $line =~ m/[a-zA-Z]/;

next if $line ~~ m/<[a..zA..Z]>/;

say $1 if 'abc' =~ /(?:a|b)(c)/; # OUTPUT: c␤

say ~$0 if 'abc' ~~ / [a||b] (c) /; # OUTPUT: c␤

say 'abcdefg' =~ /\w{2,5}/;

say 'abcdefg' ~~ /\w ** 2..5/;

say 1 if 'foobar' =~ /(?<=foo)bar/;
say 0 unless 'foobar' =~ /(?<!foo)bar/;
say 1 if 'barbaz' =~ /bar(?=baz)/;
say 0 unless 'barbaz' =~ /bar(?!baz)/;

say 1 if 'foobar' ~~ / <after foo> bar /;
say 0 unless 'foobar' ~~ / <!after foo> bar /;
say 1 if 'barbaz' ~~ / bar <before baz> /;
say 0 unless 'barbaz' ~~ / bar <!before baz> /;