Select Code to Download

$ cat test.pl
#!/usr/bin/perl
...
 ------------------------------------------------------------
 s{0}{1}r
 ------------------------------------------------------------

$ perlver-fast test.pl
test.pl: 5.010

#!/usr/bin/env perl
use strict;
...
        printf "%-10s %s\n", $pv, $_ for @$m;
        }
    }

$ perlver-fast -e '$a //= 4'
-e: 5.010 / 5.010

$ perlver-fast -ve '$a //= 4; package foo 0.04 { 1; }'
-e: 5.014 / 5.014
5.010      //= operator
5.012      package NAME VERSION
5.014      package NAME VERSION BLOCK

$ perlver-fast -ve '$a = "fo" =~ s{f\K}{o}r'
-e: 5.006 / 5.006