$ cat test.pl #!/usr/bin/perl use strict; use warnings; # Requires 5.6.0 my $a = 5; -e -f -s $0 and print "0\n"; # Requires 5.8.0 1 < $a < 10 and print "1\n"; # Requires 5.31.11 / 5.32.0 $a //= 42; # Requires 5.10.0 $a =~ s{0\K}{}; # Requires 5.10.0 $b = $a =~ s{0}{1}r; # Requires 5.14.0 $ perlver --blame test.pl ------------------------------------------------------------ File : test.pl Line : 12 Char : 12 Rule : _regex Version : 5.013002 ------------------------------------------------------------ s{0}{1}r ------------------------------------------------------------